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EITHER 
MO ISCOMPX- 
JPQ +. 
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SET Ire 
?po 
PYTHEO 


GET VAL 


MO 


NO 


TE S BOO"? 


ADING! 
TA? =TS-BAD0 V 


TA? ETT-BADO V 


x 


as» 73) 


Xi 


ann 73) 


MSCOMPX 


s 
IS 


1 S 


ME 


EL 


r 
LISTITYPE 
LIST+VARLOC 
LIST*TY PE 
LIST VARLOC 


T5-B 400 


u 


Ta 


Tr-BADOV 


da, 0% MOs MODs, 


TLCOMPX 
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JPQ e 
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ONLNX= JPG e 
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sus rs 
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SUBRELOA DENTAL 


4 


MO VSCOMP2- A š 


7 
sverger sit 
I8 vERTCOMP - 
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SErixsa,,Y 
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SI ZECOMP- 
"STE s 
SET IX£* 
P. : GET YAL 三 
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ፎ፦: 
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ፀሃ5ር 
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E SUN NEDELTAL>DELTA?- BADO Y 


PNNUGETX 


TDK 


" 


eg 


tE S Boo? eo? 
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FELOOPAAZ20 $126 
#ELOOPBB= 203338 
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Ze 


TEPUTI=205102 
CFSPUNCHz20$341 
"«U-z1055531 ገ 
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AF1 82207252 
ክሪ 
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AFFB V 
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*AFTTI-207«414 
PAFTV= 20 7415 
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ATATAP 
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` 
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CIRCEN 


“CIRCLES 
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THSUM 
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ርሃ 
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K INO 
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LMEND 
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"LTAKE 


— 
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MAGCX=2060 34 
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MAGCONYP 2208266 
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*MAGCONYz20 7434 
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MAG IGO Az20 65561 
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» SUBR 
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SUPPL INES 
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8 DEGENI=205273 MASTERS *TRANSFORMaz 2074833 
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DRAVASF IX MATS=200070 TVAL . 
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FREES MOVIT VARLOC 
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| EXPINS-S 
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AT 
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sooo sa 
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RES 


LU 


LI 
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o „ z CHANGA 


** CONSTRAI 


45. SMASBL* LIS 
NTS= **"SMASBL* 


5፻-ያ 


K=3KM :2.ዕ, ድያፇያ 
3 ** MASTER O 


t *SMASBL* LISTO 


PIRA s 7 
p "a 


MP DEGEN I 


4 S#SMASBL+LIST 


P=SKM yung 377 


KM esye EXPAIR 


» SMASBL+L IST* 1 
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200084 
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BLE VARIABLES 


z 


"ç 


1? 


NT COMPUTATION ROUTINE 


Tea 


LIS T*1 


20 


ISPLAY SUBROUTINE 


4 


tt 
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TS **EXPANDING INS 
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" 
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" 
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h IES ONLW een 
FREEDOMS= €" SMASBL*LIST*1 z P4045 
FIXEOS= 1 ?* SMASBL*LIST* 1 z 24078 
GET IT = 7 ** MASTER FORMATION SUBROUT INE 
z , 
*GORREXIT= 9 z e 
MOWBIG: € ** MASTER SCSZ COMPUTAT ION z “ 
HOVS= 155 MASBL*PICTURES z 14361 
HOVP1 = to ** FIRST HORIZ OR VERT POINT 

z 1e 

HOVP2= ያያ $e SECOND HO1LIZ OR VERT PO INT 
P z #ያ 


HOVCODE= 14 ** HOR IZzi ,, VERTICAL=2, El THER=0 


HOLDERS= ?*$MASBL*LIST*1 — Z ——I 24018 
IWHAT = 14 ** WHAT PIC THAS IS INSTANCE OF 3 
z 1e 
INSTANCES= # MASB L+PICTURES = 1 24348 
፻5፤/7፪= se ee ጽ z sé 
IPCONS= 1 I"MASBL* PICTURES = à 2444) 
IPCP= 10 ** POINT IN INSTANCE-PO INT CONSTRAINT 
z 1e 
IPCI= 17 se INSTANCE IN INSTANCE -PO INT CONSTRAIN 
r z 13 
IPCV= 14 te VIRGIN POINT IN INSTANC E-PO INT CONST 
SAINT z 14 
IP= LIST* IvAL*? z 24027 
IVAL= 20 so RICOS e, E SIN e, Yo Y z 20 
z 24538 


TOVERTS= 14» MASBL PICTURES 
IPCOTP= 1 s ** INSTANCE-PO INT CONSTRAINTS WITH THIS 
VIRGIN = i, 

18vWz ¿o ** WHICH INSTANCE IS VERTICAL 
z 1. 


ያፀሃርዐዐደ= 17 we INSTANCE TO BE VERTICAL, HORIZ, ETC 


z ያያ 
#ሀጽደጽ= ያ z 3 
KINO= 11 $+ :=NOT IN PIC, ?:PPART, I zPICBLKS 
z 43 
LIST: zeooo **LIST STRUCTURE START z 24000 
LSP= 10 ** START OF LINE E n 
& LEP: as se END OF LINE z 1. ! 
LINES: 1=MASBL+PICTURES z 24201 
LMSTART 200022 z 200022 
LMENO= 200024 z 200024 
z 100010 


LMNAME = ¿00010 
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NAG AK KAMA 00 IN በቅ ADD al PEE a ja (ob lel do 


y . IES ONLW DOU 
LMAG= 200 020 z 200020 
LETMAG= 200013 z 200018 
”LGORR I = z 203515 
*LGORR è= 2d z 203512 
#LGORREND= = 203823 
*LGORR += z 203822 
MASBL = ze ** MASTER BLOCK LENGTH E sa 


MOVED-SKM 4.710 SC SZ 1111200034 


1711100061 


NOVINGDONE=SKM ,, yo 200061 


MOVIT= to ** HOW TO NOVE COORDINATES z 1e 
MASTERS- ርያ5ፐፉያ z 24001 
MERGERS= rex SMASO LA LISTO! z 24081 
MOVINGS= tar SMASB LLISTA z 24111 
si NOISP= 200031 z 2006031 
NUMBERS: 105MASBL PICTURES z 24418 
NLIST: 72000 z 22000 
NVAL= té EAR COE v. R'*TN 0 Ni. z sé 
NTOSHO= 14 ** SCALER TO BE SHOWN E 14 
NCON= 17 ** > CONSTRAINTS SHOWN z 1, 
NEWCONS= 186" SMASB LL IST+1 z 24125 
NANE= a **NAME OF HEADER BLOCK S z e 
ONCIRCLES= 13 =MASBL+P ICTURES z 24511 
= 204400 


ORIGIN: 204400 


OVERFLOWSTOP = SKM 4% PPT 1113377931 


ONLINES= 12. .MASBLSPIC TURE S z taats 
PICTURES= 22» SMASBL*L IST» 1 z 24185 
Pisz sa ** LINES ND CIRCLES ON THIS PO INT 

z it 
PVAL: ze ** COOROINATES OF POINT = 20 
POINT S= «*MASBL*P ICTURES z 24278 
P SPLz 200042 z 200047 
PNAME z 17 ** NAME OF PICTURE, se BITS = 1? 
P SIZE z 106 ** SIZE OF THIS PIC TURE z sé 
PPART = a ** PICTURE PARTS 2 e 
PINSz za ** INSTANCES OF THIS PICTURE = ta 


1212200054 


P ICCHANGE <SKM 4.10 CPNAME 


PSNEEO-SKM asse 100041 4712500041 


PYTHAGORI AN= 200007 z 200007 
PSEUDO= 200041 z 200041! 
PMAG= 200017 z 290017 
' PPARTM: 1o ** MOVING PICTURE PARTS z Y 10 i 
ef PLOTIT-:SKM «4-9 377621 Z 17103776321 
PLUCLEAN: 200130 z 200130 l 
PLPUNCH= 2001372 z 100137 
z 100135 


PLENO= 200133 


PUNCHIT=SKM a.p 371811 z 124707377621 


16d 


PLPUBUSY- 
PLOTNOSCO 
PLPLOT= 2 
PLPLBUSY= 
P SAVE = 


P ICBLKS: 


PLOTBLOCK 


PLOTSTORA 
PICTUREK= 


ያያ 


" 


PATAP 


PBOCC 10 


" 


PBOCS 12 


" 
- 
^ 


PBOCP 


" 
- 
% 


PBOLE 


h 
- 
- 


PBOLS 


* 
- 
^ 


PBOLP 


n 
` 


PWHOS 


RELAX Ze 


READ! 


SCSZ= 200 


SORT=AJPO 


SNOISP= 2 
SCCEN= 20 
S: z 


SPECB: 2 
SCALERS= 


SPLATz#-N 


IE S ONLM so? 
SKM 4.10 200192 Z 17122001332 
PE=SKM 4.10 7001 JO Z 4712200130 
00131 z 200131 
SKN o, Ae 2001931 Z 1713100131 
„ REGISTERS TO SAVE IN PICTURE 
z 20 
2 ** NON PICTURE STUFF IN PIC TURE 
z ያ 
S= 23001136 z 200116 
GE= 2001 37 z 200137 
7 z 1 
** ATTACHERS OF THIS PICTURE z 12 
** CENTER OF POINT ON CIRCLE 
z 1e 
2. START OF POINT ON CIRCLE z 18 
** POINT TO BE ON CIRCLE = 14 
** ENO POINT OF LINE = 10 
** START OF POINT ON L INE H 13 
99 POUNT TO BE ON LINE = 14 
** PICTURE IN PICTURES z D 
vote = 200040 
00066 ፦ 200044 
** SMALL MASTER BLOCK LENGTH FOR DESIGNA 
TERS z D 
osa z 100034 
200006 2540500200004 
0002 ። 2090017 
00335 z 200035 
z , 
** SPECIFIC BLOCKS z 2 
z 24251 


J*MASBL PICTURES 


LIST,,#-NLIST 


2ያ#7ያያ/ያፖያ፪ያያያ/ 


SVAL= ze Së VALUE OF SCALER z 14 
85ዞ0ዕ#= rea ** NUMBERS SHOWING THIS SC ALER 
z — 2 14 
SHOWBLKS=SKM 4.9 377728 ve SHOW NON ORAW JUNK 
A S 1711 T317725 
SHOWCON=SKM „ „ 177728 ** SHOW CONSTRAINTS 


z 4710377728 


$HOWPOINT S-SKM 9፡7 3725 ** SHOW POINTS 
= 2707377728 
$HOWINSASBOX- SEN ang 177729 **ENBOX INSTANCES 
= 1706377725 
SUPPL INES =SKM qeq 3177713 **DON*T SHOW LINES AND CIR 
CLES Z 47041777281 
SUPPINS=SKM 4.35 37171725 **DON'T EXPAND INSTANCES 


SIZE= 11 


** SIZE OF BLOCK 


z 41053777328 


Pu LÉI 


SPLATT=e-NLIST-SMASBL ,, se SMASBL 
SPLAT TT=#-NL IST-MASBL, #- NLISTeE 


SUPPNUMS=SKM ,,, SHOWTOG 


SHOWTOG= ያያያያያ# 


SHOWTOG 


SUPPTEXTS=SKM 4.3 


SHOWT OG 


SHOWSCALERS=SKM ,,, 


-NLIST 2755771756008 


MA SBL 2155753756023 
Z 4702372725 


377728 


" 


z 11013777135 


4701377 728 


z 0271377728 


SHOWTPVALS=SKM ,,, SHOMTOG 
*SUBR I = z 203525 
TYPE: o ** TIES TO SPECS IN MASTER BLOCK 

z L 
VADO z 10 
TEXTS= >= MASBLPICTURES = 24371 
TVAL: sa EUR COS AER SIN AEQ E e z 14 
TXTS: 20 ** POINTER TO TEXT SHOWN z 20 
TUPLE= 14 SS e VARIABLES z 14 
TEXTCNG= 200077 z 200077 
TPVAL= sa te R. I LOCATION = 14 
TOPOS= Jr SMASBL+L IST* 1 z 24023 
TPVALS= S »MASBLSP ICTURES ** TYPICAL PAR TABLE $ 

z 24121 
LJ 72 z 203514 
ers z 203512 
UNIVBMHM- SMASBL,4, , MASTERS -LIST 2 4004000001 
VCON: 12 ** CONSTRAINTS ON THIS VARIABLE 


VA: LIST? PVAL 


vORD- <“ ** ORDERING OF VARIA 
YFLW= 40 ** CONSTRA INTS WHIC 

0 SATI 
VARLOC= ; s ** LOCATION OF VARIA 


VARIABLES = 7 ። SMASBLeL 1871 1 


WORKS= ze SMASBL+L JST 1 
WHERE = 12 ** LOCATION OF THING 
Pz ያ 

e 2 4 

. * “ 

#SIZEz 200085 ** KNOB CHANGE 
*ROT- 200056 ** KNOB CHANGE 


" 
E 
^ 
° 
E 
LJ 


BLES 


H THIS VARIABLE IS 
SFY z 10 
BLES IN BLOCK 
z 18 
= 24007 
z 14033 
IN PIC TURE 
z 12 
2 ያ 
= 4 
z 4 
is z 200055 


" 


20008548 


NAg NO 


IES ONLW ei: 
we DEF MOVELA-B < 
ፅርዐደ 4 


sre 8 


ee EMO 


in 


ee DEF HO IFIP, O-R 
LOA P 


sue e 


SCA [91.243 544,941) 9€t€08) A 12:28:48 


ve DEF DIFFEP- Q=R <S 
LOA P 
sus 9 
nov 5 
STA R 


se END 


ro DEF FABVALEP=0 
LOA P 

JPA my 2 

COM A 


sra o 


se END 


Se DEF PYTH1ZP-=-0,R=S=T-U 
toua R 

sve s 

#JOV U+ «Si -(5፣ 
STA Be (ድ) - (EI 
LOA P 

Sub e 

*40v Us 10) -10) 
*JPQ PYTHAGOR I AN 
#Jov y 

Sra r 


”* Eno 


""0EF PYTHIP-G@-TI-U 
PYTHIRP-0, p+14Q+1=T7-U 


Se END 


""0tF DIRECIEP=0,R=S=T-=U 


LOA e 
1 sue s . > 


*40v Verdi -(25) 


Fë 


STA aciei IR? 
toa P 


|e T 


LE S ONLM 0135 


#eJOV U+ 101 -10) 


sJPO CACT 


STA T 


ww END 


es DEF DIRECEP=-0=T-U 
DIREC! EP-0 ,P+ 1 Qe 1 =T-U 


se EMO 


ee DEF ROTAZe-6 
LO AgYA 
LOB,VvVA*1 

JPO ROTATER 
STA G 

sre 6*1! 


we END 


ve DEF HSUNZP, Q= R 


LOA P 
— 
400 0 
SCA (-,,-4 go 74,710) (t0)? 26,01 
STA R 
ee END 


se DEF SUMMEP=0=R-5 
LOA P 
400 0 
»Jov 5 
STA R | 


ee END 


ze DEF PRODEA*B/C =0-E 
LOA å 
"UL 8 
olv C 
#JOV E 
$TA o 


ee EMO 


Ss DEF LOMEZA,B,C,O 
LOA A 

108 a.s 

LOC Acc 


oo aso 


ክክ ki 


Se DEF STAEZA,B,C,O 
STA A 
876 4*8 


Src asc 


ee DEF HE 4ዐ።። ያ 


48 SNR Jul I ST 


INXa je 


ee END 


we DEF MOVEBIAB-CD 


see DEF GORREA=0=4 -B-C 


SDPX,TIWICI - C) 


INXgAri `X 
IPO rie ll! -(ር፣› 

T2- RE X,0* tC! - (ር) 
JPG C 

Tin E Xx fa l IST 


1ERSX a Ja LI ST-1 
IN Xg ja? 
DE Xp? 


„og, ers T 


"seo (o) 

SPO ፐያቀ፣‹፣ር) - (C h 
JPO B 

SPO Tie t? -Ci 
>r END 


we QEF LOABZA 
ርዐደ A 
LOB are 


ss EMD 


se DEF STABEP 
STa P 
STB Pei 


ss EMO 


"o DEF ERRORZa-«P 
#JPQ (ERRORIZA-P) 


se END 


se DEF ERROR: Ee-P 
USTE 592 


Sk Z ERRORS TOP 


Hé 


ነ fo 
d | 


89 


IE S ONL W o 15 


ee DEF PUTNAME Ze: LMNANE 

SKI EXP INS ** WORK ING IN INST? | 
JP O .. $ 

OP x, A 

cra (10:,) 

20 cra (e.. -1+000) 

ITA C3 225, 32:23 

STA LMNAME 


se EMO 


ee DEF MAKAZA= I 
RE X,A- LIST 

JPO BLOCK MAKER 
RE Kija 


ww END NG 


ee DEF COMBEFA- pre 
"R SXg o A*L IST! 


SXO gja At! 


SPO .u. ¡4 
RE X5 ju Bt: 
PRSX jah LIST"! 
'"DPXs, LIST 

PE XX] sLIST 
PRSXSpaLISTTA? I 
?DPxX,,jstISsT 
OPXS rLIST 

RE Reie At! 
»OPXSE 

2? OPXSE 
STEgLI ST 


se EMO 


ee DEF LGORREN=XR=XR2=SUBR-LEXIT 
GORREXIT=LEXIT 

"DPXyp LGORRI 
"#RSXxpzi/xapLIST+AN) #1 

LGORRO- !'*S8RSXxpixgat ST -! 
57! JNX yp te ? 


a 
SEX yg! 


IN XyxR xpo 
i 
LGORRI = SXOyxg* „ „ MODIFIED | 


#IPO GORRE XIT* (GORREXIT/GO RREX ITO! "tLGORRE NO* 11! 
14 psyxpsix eot I ST 
'OPxyg LOO RR? 


JPO SUBR 


LGORR?= SK AyRaz” ** MODIFIED 


LC ORRENO- JPO LGORRO 


ee ENO 


PUTLEN" XR=M=XR 2 
ጽ((‹ጽ/ቆያ, ,-ttN 110) 
IxRa LIST #+ANM) ቀያ 
xrt I ST 

pst I ST 

xpLI ST 

?OPXxp prli ST 
“OPXyp pstl ST 


IxRaLISTH+1M) 


RI? 
KALI ST- I 


pRliNisi, COUNT * 11) 


PUTREN= XR- Me XR 2 


RÜN*t, ,.- tc #21) 


'"RSXsixga LIST (M) +i 


on | xpLI ST 


t RSX; ¡SL IST 
*"0OPXr| KALI ST 
7D PXxp Ist IST 
toPXxg ttLI ST 
"I RSS papa LIST#+ (M 
AP X ይያ 
35 Xs ix TA 
"OPX5 | xpLI ST-1 
Ti ausge (የ(ጽ፤*።/,,-(( ክ)ቀቃያ)) | 


ss END 


me DEF LT AKEEN*XR 
“#RSXs |xpLIST#+ (N) € 1 
ta | 
RSXr IxRL IST iN) * 4 
| 
'OPx,, sLIST | 
2 
EXXs,riIST 
'OPXsixgLI ST? tN) ቀያ 
TOPXS | xpLI ST? «NI +4 
'0Px 


KIKALI STe «N) 


""ENO 


se DEF SUBRZA 
"STE SUBRI 
A — 
SUBRI= e 


se EMO 


se DEF HE ADERET=N =P 


Ti =P 


SMASBL, #,, T-LIST 


#-NLIST-SMNASBL,, er SMASBL-N LIST 


-2,0 
SPLAT 
N 

ra 


ro EMO 


ve DEF NA STER SIN 


NASBL,4,,T-LIST 


2-NLIST-MASBL, , *-NLIST*MASBL 


SPLAT 


see EMO 


se QEF eBGA,s 


RS Xa ja LIST +A 


se END 


ወ” OEF MOVELEN=XR=M=XR2 
PŽRSXS PxRLISTS (NI 1L ** TAKE 
Wéi ZC CHE IST* tN)* 1 
“OPxy|stiST 

*E XX si LIST 

"OPXsjxaLi ST? t NI ei 

*€ XX SIRIL IST? (MI # pwe PUT 
"DPXS,xRLI STRELNI eu 
##RSXr|sLIST 

SEXX, I xgLI Ste tN} +t 

?0Px,, sLIST 


>> END 


ze DEF SK IEZN=0 
RSXrjalIST+N+1 
^! “LDE yL IS T 
SXOr*E 
JPO 242 


Ss EMO 


—— — 


ARAS Kei 


= aa 2 AAA AA AAA AAA A 


LE S ONLY o to 


JPO STARTS f140500 % 0:7 


foooooo 000000 |200070 


MA TS- o 

NATH- o foooooo 000000] or 

MA TO= ° %% . e? 

MA TR > o joooooo coococ] 073 

MATRY- e lee 000000 | era 
e 000000 | ors 


fessooo 200102 |200100 


ASK Z OVERFLOWSTOP [4017212 377731] 101 

Z ere %% 200102] 102 

JPG 200001 [440300 200001] 103 
CCFR+ 11 

»JIMP MAGCON fao0so0 206125] zan 
NLISTI 

24 

HO VS-L IST? MASB L foooooo oootos|oz2000 
** o- SMASBL, q . 0 ** MASTERS ፦፡፡፡፡ሸ 000000 | so! 

SP LAT fooooo2 oooooz| eo: 

መ. |-75000 %% f | sei 


NM a-NLIST+ 1, ,MMI-NLIST+1 [000032 osooio] oc 


$5,30.,99, «€ ** UNTV foasoso osso««] ee? 
e e 000000 j eer 
NMI- UN IVBH ** VARIABLE S Joo s00 a 000001 | eer 


MMo-NLIST* SPECB+1, , SPLATT [000004 coccit]oz2010 


ze; %,“ 8 ossi 
ve -NLISTeL VI -NLI STØL foooare ooozsz) 012 
SSS A eg ** VARS [o «2041 o2004s5| ፀ፡7 
e foooooo oooooo| el 
MM 2 UN Iv8H ** HOLDERS [eo 6004 ooooosf 015 
SPLATT ‹””።፡ጭ። ecooz«| 014 
Y QM see 000000 | er 
Hio-NLIST+ 1, ,M 1 -NL IST? 1 fooo1s0 000040 |027020 
CH BEN A MA p r **HLOS [o 4202 os3027] eri 
e % 000000 | e? 
MM 2 UN IVBH ** TOPOS foosoo. 907 023 
SP LATT e 000037] TP 
uži; |r75000 ooooos | 023 
LI -NL ESTA, Li -NLI ST* 4 [ooo 22€ ፀፀፀ7፡፤| DT 
Te SID WI ** TOPO jos4o3 7 ossoasj o?! 
° foooaoo 000000 |oz20Jo 
HN 4 UN IVBH „„ CONSTRAINTS jeosoo« 000001| osi 


#-NLIST -SMA SBL, , MMO -NLISTeSPECB*1 


fovooz 4 000004/ es 


W- 


eee ess ] 


IPCONS-LIST*1, ,ONL INES-LIST* 1 


jJo00 447 024 osa 
a2 ,35, ,79#, 20 fo 7% ossozoj ess 
° Jfoooooe eeoeoo1| osv 


EN pes; vou WO las 


NI e SMASBL,#,, MM2-NLIST #2 FREE S 


e % c00015| 037 


Z+SPECB+ 1 -NL IST, , SPLATT foo0oo20 e 


x 
x 


Ne [775000 000000| e“ 
| SPLAT fovooaz ዐፀዐቃዐቃያ| o4: 
206,20, ¿O LE fozaoza 041075| e“ 
o feooooo osoooo]j e“ 

Na. HEADER ZHOLOERS« 134, 23,, 41,2 3) ** FREEDOM 
SMASBL,«4,, HOLDERS- LIST foosooa oeeeizl e“ 


#-NLIST-SMASBL, , ** SMASBL-NL IST 


% oooose] eat. 
se, 0 lrrsooo 000000 | var 
SP LAT %% 000050 forzoso 
034,434.44. FBI = |oseoz# oervssp. osi 
r e 000000 | os: 

NI e HEADEREHOLDERS= (42, ያ7, , 41, «e. — ST 
SMASBL,«4,., HOLDERS- LIST loosoo. oooois| oss 


ፀ-ጽር 57 -5፳ዳለ SBL, , ** SMASBL-NL IST 


|esoo«« cocos] osa 
“2,0 frrsooo oceooo | ss 
SP LAT s oooosef ese 
PE „ SIRE Å) jlo 62032 041046| es? 


e 000000 [027060 


Ta 
* HEADEREHOLDERS- t 41, 26,, 41,3 4 ** MRGR 
SMASBL,«4,, HOLOERS- LIST Joo 4004 000013| ec: 
#-NLIST-SMASBL, , ** SMASBL-NL IST 
e eeeerel — os: 
e$.» [775000 oooooo | oss 
SPLAT jooooga oooosaj osa 
rat ,26, ,41, 34) 1 «1026 ocrose] ፈር. 
Ta e 000000 | ert 
* HEADER EHOLDERS= (42, ያያ, , 24,21) „ DEADS 
SMASBL,«4,, HOLDERS- LIST footoo «4 000015| .., 


#-NLIST -SMA SBL, , ** SMASBL-NL IST 


% osoorsjorrere 


“2, 0 77 oooooo| ert 
SPLAT foooo?2 c00077| ora 
€Z, 79/20; 53) le «202 1 ozaozs]| ert 
TA e 000000 | mr 
* HEADEREHOLDERS= (42, 47,, 10,25) **FIXED 
SM ASBL, *, . HOLDERS- LIST [eesoo « oooois] ors 
#-NLIST -5#ዛ4 SBL, , ##SMASBL-NL IST 
e , ET 
-a, „ [775000 ooo000| er 
i SPLAT 4 %% 000100 |oz?100 T 
t 149,47, Ze, 25, le % 010225] 101 Fa 
Ta o oooooo | 797 
ne HEADER EHOLDERS- t42, 26,, 24,29) **DEISCS 5 
SMASBL,#,, HOLDERS- LIST footoo a 000015| 1.3 


4-NLIST-SMASOL, , ** SMASBL-NL IST 


Ms sis 


Hø E 


Mo «sa 


Hi es 


HE A 


SN 


sP 


(135 


HEA 


SM 


#-N 


LAT 


458 


LIS 


458 


LIS 


LAT 


458 


LIS 


LAT 


458 


LIS 


LIS 


LAT 


TE S ONLM o 22 
[7735000 000000| 108 
foooros coosos] 104 
RO 14 7% 024023] 107 
e 000000 [022110 
ZHOLDERS= (42, 7#, , 48,3 4) ** MOVINGS 
L,4,, HOLDERS- LIST % 000015| 114 
T-SMASBL, , ** SMASBL-NL IST 
ደ ፈደ 4 oooszo| 112 
[273000 oooooo | 113 
|evort« oooiia] 114 
„ le 2 045034| 118 
joooooo o | 114 
EHOLDERS= (ያያ, 37,, 44,2 2! **CURP ICS 
L, *,, HOLDERS- LIST [eo «oo sar 
IT -SMA SOL, , **SMASBL-NL IST 
jooor:2 000176 [022120 
[775000 000000 | 121 
14. %% %% 000127] 121 
AR NA EA 4 2 ፀ##«ዐያያ| 123 
የ ፈፈፈፌ 000000 | 124 
ZHOLDERS= 115, ያ/, , 47,3 $) 
L.#,, HOLDERS- LIST joosooa 000015| 125 
T -SMA SBL, , ** SHASBL-NL IST 
1 90013 126 
g Tm 
4% % „%%% Jo z2120 
TÍA lossoz2 s 131 
fovoooo 000000| 132 
#HOLD ERS- 11,4 1,, $7, #21 
L,4,, HOLDERS- LIST joosoo 000015| 133 
T -SMA SBL, , ** SMASBL-NL IST 
fovot2z# 000147| 134 
[775000 000000| 435 
. ocerse] 138 
„ 4 %% 037042| 437 
e ዐዐዐዐዐዐ jazzi so 
FHOLDERS= 12,9% 1,.37?, 42) 
0.#,, HOLDERS- LIST fooéoo hf 14 
T -SMA SBL, ,4*SMASBL-NL IST 
19 0013 000150 | 142 
frrsooo eee 143 
Jesora« %% 144 
Ws. A |oozoa1 037042] 148 
% oooooo | 1448 
L,4,, NM? -NLIST 4 %% % % 000013| ser 
T-SMASBL, MM? -NLIST+SPECB+1 
fooorar e 
eee 1.1 
Jesoisz c000152| ss. 
¿17,41 foosoe1 oso. ] 1.3 


o focooooo eco000| 154 
**P ICTURE MASTER 
Lis MA SBL, *..TOPOS-LIST 1 77. 900924 153 
MM 3*SPECB* 1-NL IST, , SPLATTT 
e. 9 1. 
s8, 17730 000000 | Tr 
SPLAT e 09160 27160 
42,334.59. ያያ ** NAME Jo e2027 osoosr| 161 
^JP0 MacPIC**DISPLAY fs sosoo 20350601] 163 
o „ HOWB IG e 000000 | 7#7 
D ** GET IT foooooo 000000 | 184 
e ##MOVIT eo 000000 | 148 
$4229, NG ** SIZE = 9 164 
e e 9 | 187 
01 ~ PICTUREK ** KIND ITA eoseci]oszireo 
e ** TUPLE e b 4” 
° ** VARLOC እፈ ፈፈፈዷ: ፈፈፈ) 172 
LINESANLI ST-L 187 
N NASTER 
tz- NASTERETOPOS-(24,38,,30,31) 
MASBL, #,,7ዕዖዕ5-ርያ5 [o 24224 9 923 201 
ø-NLIST-MASBL,, #-NL IST? MASBL 
e 999225 202 
Ze, lrrsovco ecoocc| 201 
SPLAT 1 20 4 2 204 
KALME 05, 807803 [o 2403 s osooss| 20635 
JMP  MAGL  ** DISPLAY f+003500 205710] 104 
SINP, Cp IU w. RER rg |eoe so o 204707] 207 
o **GET Ir fooooo n 000000 |o22210 
DE GEN PONOVIT 17 205273] 211 
8:9 45945 8 tt SIZE 18577 000000 / 212 
e fooooo 0 oooooo | 113 
0 ~ DISPLAYK e eo 9 9 214 
o ** TUPLE £^ le eeeecof sis 
e ** vARLOC lo00000 000000 | 214 
€ IRCLES*NLIST-LISTI = = 
"CIRCLE MA STER 
tso MA SBL, *,,.TOPOS-LIST 1 a cesser]. 22s 


#-NLIST -ጽለ58ር, , MM3+ SPECB+1-NLIST 


e ETETE 214 
-a eee 000000 | 227 
SPLAT fooorse ee le zzzze 
et Ee er CET *. IRC 1 72 910022] 211 
% MAGC **DISPLAY (400 50 0 203770 | 232 ፡ 
^JMP CPIC „ HOWB IG f+00s00 204723] 211 t 
° ** GET IT foooooo coocoo j 214 
DE GEN ** NOVIT % 205273| 235 š 
BO AG 29 ** SIZE fozoos a eooooof ase 
ኑን 0 000000 j 23? 
as. DI SPLAYK LITT eoocor|ossseo 


TE S ONL MW o 24 
o ** TUPLE e 9 241 
o ** VARLOC fosoooo ccooccc| 242 
SCALERS+NLIST-LISTI 
** SCALER MASTER 
v: = MASBL,«4,,VARIABLES -LIST fozeoo+ c00007| 251 
MM 1*SPECB* u -NLIST, , SPLATTT 
jeocorz 000276| 252 
C |?78000 ecoocc| 7” 
SPLAT leese zz e ooozsej 254 
13 ,20, ,22, 42 se SCAL 1 0220432| 253 
#ፅ/ጽጦዖ MAGSCAP#DISPLAY 172 206420} 256 
OE GEN ** HOWB IG ]eoosoo 205273] 237 
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LGCORREPPART*ezS- MAC 1 E LEIS 一 
SEN SHOWBLKS 


MAGP IC X= ሙ Ko 


JPO 2 


ርዕዐ RREP ICBLKS 10 2S-M AGIS MAGP [C x 
MAGI- #STE MAGIX 

rETYPE, s 

BPO y LIST+DISPLAY 
MAGIX- JPO „ 
KAGL- ISTE MAGLX 

sk Z SUPPLINES 

SKZ EXPINS 

JPO er? 

JPO MAGLX 

PUT NAME Ev ^L MNAME 

r EL SP, e 

ROT AE Y=LMST ART 

rBLEP, e 

ROTAZr- LMEND 

+IP O LNAG 
MAGLX- JPG æ 
NA EC !srE MAGCX 

SK 2 SUPPLINES 

SKZ EXPINS 


JPO npa 


$ 
JPO MAGCX | ZA 
ሃወር IRCEN,e 
ROT AE Y=CMCEN 
ሃር sp, e 


ROTAEY-CMST ART 


/9 5] 
, LE S ONLW seit | ጨመ 
SKZ EXPINS 
JPG MAGCI 
Sc HSH. 
ROT AEY-AFEND 
PET 0 ANGLE FIX 
MAGC1+= LOA a CVAL+ LIST 
sra CMANG 
PUT NAME Be ^C MNAME 
#JPQG CMAG 
MAGCX= JPO e 
MAGP= STE MAGPX 
SKN SHOWPO INTS 
JPG MAGPX 
ROT ASE +LMST ART 
PUT NAME Za», MNAME 
JPO |PMAG 
MAGPX= JPG œ 
MAGTPVAR- 
STE MAGTP VX 
SEN SHOWTP VALS 
JPO MAGTPVX 
PUT NAME ፪፳#-ር MNAME 
LOABETPVAL* LIST, 
JPO ROTATER 
STA MAGTPX 
578 MAGTPY 
LOA scsz 
MUL E 10,) 
STA 8 
SUN M+MAGTPX =LMSTART -BADOV 
SUM MZNAGTPY= B=LMST ART? 1=BADOV 
DIF FEMAGTPX= B=LMEND-BADOV 
DIFFEMAGTPY^ B=LMEND+1=BADO V 
4 0 LMAG 
LOA LMEND 
EXA LMSTART 
STA LMEND 
sip 0 LMAG 
MAGTPY x- 
JPG e 
NAGCON="STE  MAGCONEXIT ነ 
SKN SHOWCON 
JPO MAGCONEXIT 
PUT NAME 3e=L MNAME i 
TECHVAR,Y ** y=TYPE š 
| ኞቹ DPX | MAGCON XP 
OPx MAGCON YP 
DPX A 
LOB (2) .. 1/72 


OPX T 0 


NAGCONI« 
LOA 
oP x 
RSX 
rår 
sap 
578 
MUL 
SUM 
PRO 
SUM 
RSX 


MAGCON 1 X- 


JPO 
NAGCON 2+ 
LOA 
oP x 
RSX 
rør 
ap 
STA 
RSK 
PRO 
SUN 


PRO 


T 


MAGCO 


MACCON 


» 1187 


BELMENO 


MAGCO 


DESC SZ*M 


M-MAGCON 


DESCSZ*N 


SUMM-MAGCON 


#JP 


MAGCON? x= 


23 


9 L MAG 
PX y MAG 
BEMAGCON 

BECMCEN 
El(- e) 

d CMAG 
y MAGCO 
y LIST 

CMANG 

Alay 952 


NO" ¿NUMBER OF TIES=2 
ix 

** SET TO FIRST VARIABLE 
NTI 
"WHERE ** FIND PLACE OF TIE 
Y 
N 


XP=MAGCONXP=BADO V 
N=MAGCON YT 
YPzMAGCONYP-BADO V 


NTI 


CON! 


XP- A=ZMAGCONXP=BADOY 
YP= AZMA GCONYP>BADOV 
NT 


2X 


NT: 


*WHERE 


NTI 
AGCONTAB y 
XP=LMSTART-BADOV 
AGCONTAB +15 


YP=LMSTART+1=BADOV 


CON? a Em 


xP 


=CMANG 


Nr 


CONLET ** LABEL LETTER 


T, 


— 


— 


NUL scsz 


STA LMSTART 


oP x LMSTAR T+ / 

LP O LETMAG 
NAGCONEX IT ~ 

JPO a 


MAGCONTAB- 


NAGCON e 
° 

MAGCONYP- 
e 

NAGTXT-'STE MAGTXTEX 
SKZ SUPPTEXTS 
SKZ EXPINS 


JPG er , 


JPO NAGTXTEX 
PUT NAME Eo -L MNAME 
LOABEZLIST+TVAL, 
sIP 0 S IZER 
STABE? 00022 
LOABSLIST*TVAL»* Ze 
^JPQ ROTATER 
525የደ6ጸ5ያዐዐፀያ፣። 
1ILDA ç LIST*TXTS 
CEA 2000 24 
INX „ LIST*TXTS*1 
oe a 200026 
PO 20001 4 
NAGTXTEx. 
JPO e 
MAGNUM= STE NAGNUMEX 
SK Z SUPPNUMS 
SK Z EXPINS 
JPO #+ 23 


JPO MAGNUMEX 


PUT NAME ene 
LOABELIST+NVAL, B: 
AJPO SIZER 
STABE200022 
LOABELIST*NVAL* 2, 


»IPO ROTATER 


6ለ6በጸጽ፳ያፀዐፀዐያ፣ 


199 


an መመ መመ መመ ወመ መመ መመ መመ መመ መመ መመ መመ መመ 


IE S ONLY e 21 
RSX ajo LISTeNTOSHO 


PRODEL I ST#SVAL, "MAT S/MATD-B ADOV 


MUL ( 064324126.) 


2 t», EE 


app ( e) 


STA 200024 eg IGNORE OVERFLOW BECAUSE YOU CA 


N'T? FIX IT 
22 0 2000141 
MAGNUME X- 
JPG a 


WHERESCA= 


STE WHERE SCAX 

OPx MAGSCATS 

oP x MAGSCAX 

DPX MAGSCAY 

LGORRESSHOM=ra=S-MAG SCA? 

LOA MAGSCA X | 
| 

SAB (-ያያ»,) 

DIV MAGSCATS 

STA  MAGSCAX 

LOA MAGSCAY 

SAB (-15+-.,) 


DTY MAGSCATS 


STA MAGSCAY 
STA 8 
LOA MAGSCAX 

WHERESCAX- 
JPG e 

MAGSCA- ISTE MAGSCAEX 
SEN SHOWSCALERS 
JPO MAGSCAEX 
#JPQ WHERE SCA 
PUT NANE £2=L MNAME 
LGORRES SHOW razS-MAG 5CAJS 
LOA sc sz 
muL ( 20.) 
REX 5 I 
STA MAGSCAXS 
STA MAGSCA XE 
sca (-2,) 
STA MAGSCAYS 
STA MAGSCAYE 
com MAGSCA xE 


MAGSCA 1 = 


SUN MEMAGSCA X»MAGSCA XS=LMSTART-BADOY rd 


SUN MEMAGSCA X=MAGSCA XESLMEND-BADOV 


SUN MEMAGSCA Y=MACSCA YS=L MSTART+1:=BADOV 


SUN MEMAGSCA Y=MAGSCA YE=ZL MEND +1=8 ADOV 


sipè LNAG 


LOA MAGSCAYE 


MAGSCAE 


MACSCA? 


NAGSCA? 


MAGSCAS 


MAGSCAS 


NAG [- 


MAGI» 


EXA MAGSCA XE 
COM A 

sra MAGSCAYE 

LOA NAGSCArs 

EXA MAGSCAXS 

CON A 

STA NAGSCAYS 

7!JPX s MAG SCA) 

xX- 

JPO e 

"STE  MAGSCA?X 

REX 8.4 

«ዐጽ 5 MACSCATS 
SUNMENAGSCAK=LI STAN VAL? 2, £N 468ር ለ 7=ፀ ለዐዐሃ 
SUMMEMAGSCAY-LI STeN VAL? 5, 2M AGSCAY-B ADO V 
Ka 

JPO e 

"STE MAGSCASX 
LOABELIST+NVAL+ 2, 
STABSLMENO 

LDA MAGSCA X 

ርዐፀ MAGSCA Y 
STABELMSTAR Tr 

»IPO LMAG 

xa 

JPO e 

"STE MAGIX 
PRODSTLIST*ISIZE,*MA TS/MATO=BADO V 
FAB VAL 

STA MAGTS 

SCA (-1,) 

aoo MAGTS 

STA MAGTS 

0 rv 8c sz 

#JOV „„ 5 

SUB ( 4«00,,) 

JNA NAGIX ** DONT EXP AND 
LOABEIP, 

ROTA 

sve SCCEN 

FAB VAL 

SUB MAGTS 

SUB scsz 

JPA MAGIX ** DONT EXP AND 
LOA 8 

sve SCCEN+ 1 

FAB VAL 

sub MAGTS 


ኔ 


NAGIGO- 


MAGIASB 


NAGIGOA 


NAGIGO I 


sus 
JPA 
PUTNA 
SKN 
JPO 
**E NB 
SUMME 
OIF FE 
SUN M^ 
SUM ME 
ROT A- 
REX „ 
Ox- 
LOA 
EXA 
COM 
STA 
LOABE 
STABE 
SUN ME 
SUN ME 
ROT A- 
JPO 


“ESPA 


5«2 
JPO 
RSX y 
SxO „ 
JPG 
^LOE 
"SED 
JPO . 
JPO 
OPX s 
MOVES 
REX s 


EDA 3 


D 


LOABE 


.P O 


opx 
oP x 
LOABE 
com 


»IP O 


TE S ONLM o 23 
sc 82 
MAGIX ** DON'T EXPAND 
ME Za», MNAME 
SHOWIN SASBOX 
MAGIGOA 


OX INSTANCE 


C IST. IVAL yg *LIST* IVAL* 2 , ZEXPAIR TS^B ADOV 
LIST? IVAL,c>LIST?IVAL?? ,EXPAIRTT-B ADOV 
IP+1¿= B-BADOV 

IP,-EXPAIRTS-B ADO V 

LMEND 


D 


EXPAIRTS 
EXPAIR TT 

A 
EXPAIRTS 
LMENO 
LM START 

IP*I,SEXPAIRTT z B=BADOY 
IP y-EXPAIRTS-B ADOV 
LMENO 

LMAG 


y NAG LASBOX 


SUPPIN S 
NAGIX 


la LIST IN HAT 


MAGIX ** NO PIC TO SHOW 


y LIST*PSAVE 


MAGIX  **RECURSIVE PICTURE 
Iy PSAVE+LIST 


MAGIX=? PSAVE+ LIST y 


LIST*PSAVE* I 


IP. 

ROTATER 
EXPAIRTS 
EXPAIRTT 
MATRX 
MATRY 
LIST*IVAL, 
a 


ROTATER 


VIe 


TE S ONLM o 74 
COM B 
STA MA TM 


578 NATO 


PROOEMATS»L IST? ISIZEg/MATO=MATS=BADOV 


MOVEILIST+P SIZE ¡MA TO 


4 


MAGICO 2 
MOVEIEXPAIRTS=MATRX 


MOVEIEXPAIRTT-MATRY 
HEN: NA 

AOX y EXLEVEL 

MEN EXPINS 


REX sir 


GORREPPART" Azo- MAGI »MAG IL V 


MAGILV=REX y 5 


LOA vis LIST+PSAVE+ 1 


STA y MATS 


t “IJPX yo-? 

z MOVEI* LIST#PSAVEg-! MAGIX 

: RSX y EXLEVEL 

; “LIPA yete 

f ERROREY-MAG IX **QUT TOO FAR 
Ex DPX y EXLEVEL 

å Sx0 y oo 

; „r EXPINS 

| REX y 0 : 

$ EXX „ LIST+PSAVE d Eé ሺ 

REX sir k 

MAGIX- JPO # 

| SIZER- "STE SIZEX xy D --. — 

i STA ROTX 

| stra ROTY EI Se ዕር E 


PRODEMATO=ROTY/MATD -ROT S-BADOV 
PRODSMATM*ROTX/MATO =BADOV — 


sue ROTS 
$ 


am 一 


"JO V BADOV 

EXA ROTX 

| PROD=MATO/MATD=ROTS-BADOV 
PRODZMATM"ROTYZNATD =BADOY 
ADD ROTS 


sjov BADOV 


ROTX 


ROTY 


PRO O?MATM/MATOZROTS-BADOV 


PRODEROTY=MATO/MATD »BADOV 


፡ 


EKA R 
PROD=M 
PRODEN 


sue R 


LOA ድ 
ROTATX- JPO e 
WHERESUB- 

ISTE 

58፣ rPE 

Y art 

#LOE $ 

asi SED 

JPO „ 

*sED ( 

IPO er 

ERRORE 


INX 7 


IES ONL NW o 23 
ors 
84ዐዕሃ 
ATRX 
8ADov 
OTX 
ATO/MATD=ROTS-BADOV 


ATMROTY/MATO *BADOV 


ors 


WHERE SUBX 


oc,s 
TUPLE+LIST 
( 2) 
s 
«) 
L4 


S-WHE RESUBX 


INE rte 


LOABEL 
WHERESUBX- 
JPO € 
TR ANSFORM- 
STE 
OPX , 
sBrrPE 
AUX ei 
NI: "5 
RSX s| 
SPO er 


TRANSFORME -~ 


STE 
OPA , 
sxo 5 


TRANSFORMX 
TRANSFORM 

18 

5 LIST+VARLOC 
LIST 

s LIST+TUPLE 


ያ 


TRANSFORMX 
TRANSFORMe 


ያ 


JP TRANS! 


SXO 5 


JPG TRANS? 


SxO 5 


JP TRANS« 


ERRORES-TRANSFORMX) 


TRANSI-LDA , 


MUL MATS 


Div Maro 


eoo 


TR ANS2- 


TR ANSe#- 


TRANSFO 


TRANSFO 


ANGLEF I 


AF 1 


AF 1 An 


AFOVER= 


AF 18- 


TE S o WI éz“ 


#JO V BADOY 
STA ç „ 

JPQ TRANSFORMX 1 

LOABZO, 

»IPO ROTATER 

574880. 

IPO TR ANSF ORMX1 

LOABZ?, ** POSITION 

JPO ROTATER 

STABE?, 

PRODEMATO=1 ¿/MATOROTS-BADO V 
PRODEMATM=0 ¿/MATO=B ADO V 

sus ROTS 

»JO v a aDov 

EXA 2 e 
PROD=MATO/NATD=ROTS-BADOV 
PRODEMATM=1 /MATO=-B ADO YV 

400 ROTS 

4» JO V BADOY 

STA Je 

RMX Is 

RSX a TRANSFORMe 

RMX ~ 

JPG # 

* 

"STE  ANGFX 

DIRECSAFST- AFCEN=AF TT-BADOV 
DIRECZEAFEND-AFCEN=AFTV-BADOV 
sub AF TT ** IGNORE OVERF LOW 
ADD ( 0) 

SCA (-2,) 

STA AF TT ** RELATIVE ANGLE 
sus AFANG **EXIST ING ANGLE 
sjov AFIA 

FABVAL 

SUB ( #00,0,,0,1) 

INA AF 18 

NKC sup AFTT 

LOA AFTT 

SUB AFANG 

no v AFOVER 

FAB VAL 

SUB ( 200,0,,0,1) 

JNA AF 18 

LOA f s77,-o,,-0,-e) pa 
LOB AF ANG 

SKZ 4.5/8 

COM 4 k 
JPO AF 1601 

LOA AFTT 


ANGFX- JPG ° 


AE END: ° 


"TEM JPG grr?50 
CL a PG 2000.00 
37 TT) 00001 
LAST- ZZLAST 


ua a eat v y... > 


—A0CEG-:e:2251 


| ADCONER zo 1 2 Ee 
| ADCONEX «1210; 


' 40 co 
፤ ADCONiX=0e12> 106 
ADCON2=o1 2211 
| PADCONTI 2014355 
| AOCON+X=01 2764 
ADCONI1=0 112355 
SAOCONT? z0 14540 
MOCONSTEP zo1 4500 
AOCONIXAzos an ra 
AOCSUB=0 12237 
“ADCSE zot asse 
TAOCSUM=zE1 4257 
oc vc 14333 


40 r αα 2255 


—— — zl 


人 ADOY 
Bunos 
Core 
ECFRI z0 23775 
c 
CLzo15100 
CLEAN=O 21115 
ct A 
CLEAN 12021251 
CLE AN 1 201 1157 
CLEAN Pz0 11100 
ENST: 20132000 
ራያ የረ 
ENSTI xzoiso ro 
CNSTIAz01 3005 
"CONBL 
"CONBR 
comp 
CONSTRAINTS 
CONSTAR fz01 2740 
» CONSTAR TX=0 150125 
CURP Ics 
Cvrs 
DESIGS 
-0IFF 
4 DONE zot 20:7 
ERROR STOP 
TERROR 
| TERROR: 
š 


FIXEOS 


"HO IF 
THSUM 
INSTANCES 
TP 
IPCI 
IPCONS 
IPCOTP 
coc 3218 
IPCONCOMPI t 
IPCONEXz01 1245 
IPCONEX1=0 13276 
IPCP 
IPCv 
ISIZE 
IvAL 
IWHAT 
LASTzo:310 p 
"LDAB 
24 46 
"LCORR 
”LGORL 
”LGORRI 
”LGORLI 
*LGORRI 
S LGORROA 
*LGORRENO 
*LGORR? 
“LGORR I: 
*LGORR IO 
“LGORRIENO 
*LGORRI? 
*LGORL1 
*LGORLO 
*LCORLEND 
*LCORL? 
LIST 
LPSTART=01 so na 
LP START X209 1 1016 
"LTAKE 
MASBL 
MASTERS 
"MOVE 
"NOVEL 
"MOVER 
MOvIT 
MOVINGS 
NAME 
NCON 


NEWCONS 


—— — 
EIK A se 


MH L A Pre ... 


*ROTS=01 04544 
s 
*$LvAD 
*$SLvAD € 
*SLVAD 1 
*SLVAD 4 
*SLVAD r+8 
*$LYAD 1 
*SLVAD s 
*$SLYAD» 
#SLVAD s 
#SLVAD 7 
*SLVAD» 
*$LvoR 
"3Lv0: 
WIRT: 
*$SLvO? 
*$SLvD« 
„Sue 
*SLvR? 
*SLVYRI 
„Sve 
*SLvR* 
#SLVRE 
*SLYTI 
„Stur 
*$LvTR 
*SLVIR? 
*SLVT« 
*SLvT? 
*SLYTX 
*$LYT« 
*5(ሃ75 
*5ርሃፐዎ 
#Sivry 
#SLVTP a 
SMASBL 
”SOLVE 
"SOLVEN 
“SOULVE MI 
*SoLVX 
SPECB 
ST=01 5501 
"STAB 
» STAE 
START $2201 2000 
START SI z012020 
START $1 X20120 83 


"SUER 


EA 
ዬሂ 


^w 


t 


— 


FIXSAP=100064 


rec „ 4341 


FRCC=01 2370 
FREES 

FREEDOMS 
FREE SUB z0 12 10? 
FREE SUB X20 1 2308 
#FREESUBe 203 4341 
FREE sds 201 2323 
FREE SUB 201 2586 
FREE SUB 1 X20 12385 
FREE SUB 1B 20 12332 
FREE SUB tAz0 1254? 


FREE SUB 12017165 


FREESUBFREE z0 12 141 


FREE SUB 4201 7373 
FREE SUB 7201 2437 
FREE SUB s201 traite 
FREE sUõ‘i PAN: 
FREESUBSXz0 12410 
FREESUBIA=0 11428 
Face sd a z0 1 2476 
FREEDOM 201250? 
FREEDOM x201 2818 
FREEIBAC=01 2525 
#ዘዩ፪74=፡7ያ7፡፡7 
#ዘዩ፪፡፡977#7፣ 
ere 2012554 
FREE:20:2573 
FREKIXzo1 2614 
ዎዩዐዕለር 

*GORLEXIT 
“GORREXIT 


#GORRLEXIT 


HHL APYr s [E 
#NEWCON 2014543 
TNORMATM 
"NORMAT 
*NORT 4 
*NORTI 
*NORT? 

*NORT I 

*NORX 

#NORX1 
OROSLV=z=011051 
OROSLVX=01 10084 
OROSLVI1=01 3047 
ORIGIN 
*OVERRELAXF AC zo 1 asou 
PICBLKS 
PICTURES 
POINTS 

PPART 

#PROO 

PSIZE 

»PUTL 

”PUTR 

PVAL 

REANS 

REEG 

LAZ en 
*RELAXTHIS=01 4348 
RELB=011104 
RELBX=0111 LI 
RELC=0121)2 
RELC1 2012433 
RELC?ze pi SA 
RELX=0 12108 


Rizersarr 


*SUBRI 


”SUMM 


VARIABLES 
VARLOC 

VCON 

VFLW 

VORO 

WORKS 

WORKE R=o1 2618 
MORKE Xz=01 2787 
VRK1A 0110454 
WRKIZOIE662 
MRK1AX=o1 2881 
WAK 12012701 
VWRKIX=011 7058 
WRKIZ0112 706 

* K AZ 011794 
VAK4X 20 12 786 
WAKIZO! pra? 
#ZZLASTzos asa? 
Y 

zi 

ያያ 

ei 


Léi 


2o? 


) 


HHL APYO Ser 
BADOV= 200100 z 200100 
CR GEES ** TO WHICH PIC TURE BLOCK BELONGS 
z « 
cvrsz s ** VARIABLE TO MOVE TO SAT ISFr THIS 
z D 
CONP= u“ ** CONSTRAINT COMPUTAT[ON ROUTINE 
` Ex ` ` 
z : de 
CHvar= ze ** * CHANGABLE VARIABLES z se 
CURPICS= 7#። SMASBL* LIST» I z 24417 
CONSTRAINTS2 ersMASBL+LISTèL. — — „ 10031 
CCFR= LIST-2 z 23776 
— A - > = 
OESIGS= :3*5$WMASBL*LIST*1 z n l 24008 
ERROR STOP =SKM 4,70 11710 E 1112377730 
FREES= Sr SMASBL*L IST» i z naag? 
FREEDONS= S" SMASBLELISTet z na... 
FIXEO S7 1 *$MASBL*LISTe1 z sara 
“GORRE XIT= CLEANIX z 23187 
*GORRIEXIT= MORKEX z 12787 
“GORLE XIT= e z e 
INMAT Je we WHAT PIC THIS 13 INSTANCE OF 
z sé 
INSTANCES= é "MASB LèPICTURES z reser 
PPCP: ze ** POINT IN INSTANCE-PO INT CONSTRAINT 
z 1e 
ያፆሮያ= ያያ ** INSTANCE IN INSTANCE -PO INT CONSTRAIN 
r z ያያ 
ያጦርሃ። ve 2% VIRGIN POINT IN INSTANCE-PO INT CONST 
RA INT D sa 
IPCONS= 1 1*MASBL* PICTURES z pea. 
IvatL= 20 eS. 9609 e. 9 SIN "Vi X. Y z te 
IPE IvaLo LIST? ** INSTANCE POSITION z 24221 


IPCOTP: 106 ** INSTANCE-PO INT CONSTRAINTS WITH THIS 


V IRGIN z 14 

ISIZE= 18 sr og z 10 
LIST= s4020 *9"LIST STRUCTURE START z 24000 
LGCORRIz z 113606 
LGORRO: * 11369 
Li 11374 


LGORRENOr 
Leoggrs ፦ ያያያ7ያ 
t CORR liz 
L GORR lez 
. GORR TEND z 


GORRA tez 


QoS 


HHL APYS oa 


#LEORL 12 D 111068 
#LGORLO= z 113069 
*LGORLEND* z 11374 
#LGORL 2 2 z 11373 
MASBL= 24 ** MASTER BLOCK LENGTH z sa 
MASTERS= LIST»: z P4001 
MOVIT # 10 ** HOW TO MOVE COORDINATES H 1e 
MOVINGS= ter SMASBLILISTt1 z 24111 
NCON= 17 ** å CONSTRAINTS SHOWN z 1 7 
NAMES « * NAME OF HEADER BLOCKS z e 
NENCONS= 16: SMASBL*LIST* I z 24128 
*NORT«z D 21426 
#NORTI z 2 11371 
#NORTI= z 11411 
*NORTI 2 z 11493 
#NORX= z 11418 
*NORX: z z 11414 
ORIGIN: 11000 z 14000 
| 
PICTURES= st=SMASBL+L IST? 1 z 24148 
Pral: ro ** COORDINATES OF POINT = 20 
POINTS= «*MASBL*P ICTURES z 24278 
PPART = a ** PICTURE PARTS s e 
PSIZE = 16 ee SIZE OF THIS PIC TURE 3 té 


PICBLKSz >. ** NON PICTURE STUFF IN PIC TURE 


z . 

"EEO- 140 z 140 
REANS= 100 z Zeg 
SMASBL= s ** SMALL MASTER BLOCK LENGTH FOR DE SIGNA 
TERS z Ld 

z , 


SPEC: a ** SPECIFIC BLOCKS z 


www 


eSLVRES 


esivrr 


estivRa= 


#sivRe 


esivRe= 


*SLvTP?* 
*SLVAD z 
estvOs= 
#SLYOJ= 


esivD:= 


„to- 


*SLvAD é 5 


*SLYAD s2 


*SLVAD 4: 


*SLVAD I + 


*SLVAD: 
*SLVAD I = 
*8ርሃለዐዕ”። 
*šLvAD sz 
*8ርሃህለዐ”። 
#SLVAD 92 
*850LvX- 


SVOR: = 


TYPES e 


TUPLE = 


Toros= 


VAT pya 
ሃዐዕጽዐ። s 


VFiv: 4 


"CON? 7 


U ne Me 
z 
z 
z 
z 
z 
z 
z 
= 
z 
š 
z 
z 
z 
z 
s= z 
z 
z 
z 
z 
z 
፡፥ 
z 
š 
** TIES TO SPECB IN MASTER BLOCK 
3 
z 
ta ** * VARIABLES 2 
ze SMASBLSL ISTe L š መ S 
z 
Š 
— <ሙ፡ — — 
Le LIST 2 
** ORDERING OF NARLABLES O. F = 
e ee CONSTRAINTS WHICH THIS VAR TABLE. 
o SATISFT 3 i 
E se CONSTRAINTS ON THIS VARIABLE 
Lj 
13 **LOCATION OF VARIABLES IN BLOCK 
z 
VARIABLES = 1 =SHASBL+L 1ST#+ a ። 
z 


VORKS= 


ra SMASBL+L IST* 1 


Do 


sena? 


11474 


11440 


114758 


114753 


11401 


1187) 


11835 


11357 


sinag 


118827 


22818 


11470 


117121 


11403 


11404 


110610 


110464 


1106104 


11643 


11440 


11404 


11110 


14010 


18 T 


ያያ 


1. 


nao? 


24083 


| 2o} 


NHL APY F 


HHL 


es DEF PRODEA=+B/C =0-E 


LOA A 
NUL 8 
orv c 
aJOv E 
sra 0 


er END 


ee DEF SUMMERA-B-C-D 
LOA 4 
40 0 8 
JOY 0 
sra C 


we ENO 


ss DEF OIFFEA=B=C=O 
LOA A 
sus 8 
aJov D 
sra C 


er END 


se DEF NORMATN 


#STE NORTA ** so (የዘ ሪ፣ 


REX,, pri! 
"DPX,,MNORTI 
!"UOPX,,NORT 2-3 
"DPX,,NORT 2-1 
RSX,,*NORT I 
OE X pg, å 

OP X NORX 

STA NORX: 
NORTi- LOA,, ** FIND 
IPA eet 

COM a 

SUB NORX 

INA av 5 

400 NORX 

STA NORX 

7! JPX NORT: 
** T FY 

SAB (-ያ፡-,) 
"torv ei .. y 
LOE NORXI 
WITT 


4 
N sèn 


IMAXI 


"UL NORX ** NEW MAX 


4 Ap (ያ፡-,)› 
STO NORX 


COM NORK 


— 


a AÑ 一 - — — AAA . — 


RSX,,* NORT I 
JPO NORT? 

% #9 

NORXI= 0 

LO Ayy " Pet 

8CA NOR X 

STA», ++ Pet 

NO RT? 7! JPX,, 2-3 


NORTI= (DA py; 


S? SUB NORX #eovF? 


It STAN, ** NEW EXP 


NORT += IPO ያ 


ss DEF NORMATIP,M 
REX,,? (P) 
"#LDA,,-M+M 

#JPQ (NORMATM) 


rr EMO 


se DEF HSUMEA-B=C 
LOA 4 

App 8 

SCA d-1,) 

sra ረ 


se END 


”” DEF MOVEJA=8 
"LOE A 
STE s 


""END 


”DEF HO IF |P,G-R 
LOA P 


sus 9 


”” DEF LOAEEP, O,R,S 


LOA P 

608 peo 
LOC Per 
LOO Pers 


Se DEF STAEEP.E@E,R,Ss 


Sa P 


878 pro 


src Pe R 
STO Pos 


er ENO 


se DEF LO AB EP 
LOA P 
108 Pe: 


se ENO 


se DEF STABEP 
sra P 
sre Ps; 


se ENO 


se DEF ERRORE«-P 
PIPO (ERRORIET-+P) 


ee ENO 


>> DEF ERROR! ne< P 
"STE sens 


SK Z ERRORSTOP 


>> OEF SOLYEIP-@ 

REX, e (P) 

REX? (0) 

si ዐደዘ.”› 
#SEO (2) 
IPO „ 

#SEO (a) 

SPO axe 

^SED (s) 

IPO su a 

. 

*4P9 (SOLVENI ©} 

SPO ee a 

“IPO (SOLVENMI 2?) 
JP O ert 
#JPO (SOLVEMI) 

“rEND 

| 

""0EF ADCONEC-P 

OP gei 

ወዎጽሬለ 

PIPO ADCONER 


"END 


> DEF 


#ዘጀድሪ።።።ረር።ዐዕ።።ያፖ=።ዕ።፣።። l, e 


መሙ ሙሙ ሙመ- mmm m == == 


MH 


RE „ 


RSX,*(LIST* I4) 6 


8 % (LIST Ha de 
RS5X,*(LIST*6,)* 
RSX,*(LIST*F,)* 
RSX (LIST +EL DA 
RSX (LIST+04)+ 
RSX,*(LIST*C, De 


RSX,*(LIST*B,)* 


REKXS (LIST +Ay De AA 130,35 


er DEF LTAKEEN.XR 
##RSXgs/xpLIST+ (NIS 1 | 
44RSXT trei IST? EN) * 1 
"OPXrigstiST 
"EXXsirLIST : a 
!0PXsixgLISTe(Nies 
*"OPXsyxgLISTe Nro! 
oe, ይ ፈጃ... 


se END — 


Se DER PUTLSEN* XR= M* XR à 


#P AUX yap (INTEL, t€ 0) 011) — — 
SK (አጽ, Is 
"OPXs | KALI ST 

WW RSXT (40፡57 

"DPXr| xgLIS$T 
”0PXxrR | ril ST 
'DPXxgistL IST 
SIS re LISTe EM) 
SIPXGEt 2 

Sk Xsix est 
'"UDPXsixmLI ST-: 


It AUX yap CENI +t, ,-tt Ni #43) 


ke END 


""OEF MOVELEN=XR=M=Xx RI 
ess RU IST+ (ND * 1 ** TAKE 
ti RSXr p ጽጽ፣ ISTe (N) * a 
"OPXrigtiIST 
"EXXsirLIST 
"DPXg/xpLIST+ e NI ei 


TE XXspxgatL EST EN) e a ** PYE 


"OPXsixgLI STe EN) +: 
214 

RSXr sl I ST $ 
ድ Tx gLI STH EN) WI i 


ú ወና 50787 


se DEF 


se END 


>> DEF 


ze END 


"e DEF 


END 


DEF 


PUTREN* XR=MxXR 2 
C AUX ድ (INI PD, -CN 041) 
"RSXsixesLISTe iM) ou 
'OPXsiyeLIST 
'"RSXr | sli ST 
toPXrjypti ST 

0 5075 

“OPXxp prLI ST 
TERSXS |xpa LISTO iN) 

PIP X eo. 

55/78 

'OPXsixgLI ST -1 


PAUX xp (INI #2. 0100901) 


NO VEREN=XR=Mx XR? 
!"RSXspygL ISTO EN) e 1 ee TAKE 
ብ. 4 xgL ISTe Riet 
'"UPXrILSLIST 

e RX Is r 
*"OPXsixgLISTe „e 
TEXXs/xpal IST? iN) ^ 1 * 9 PUT 
"OPXs|xaLIST#+ EN) +a 
'""RSXr | sLIST 

Z€ xXy | xRLIST CN? ou 


"DOPXr,gLIST 


COMBLEN=XR=M=X RI 
IP RSS | አመር IST#+ EN) WA 
"E KASI y esL ISTe i) HA 
*5 RSXp zač IST? EN) + 1 
*"OPXsirpLIST 

“EXX, sLIST 

PI RSS ለቢ ISTO EN) 1 
“E XxX? 510757 
*"DPXrIxgLI STe NI $1 


TOP KALI STVENI ou 


COMBREN+XR=M= XR? 
'RSXs E ygU ISTe (NI #1 
LE XXs| xRIL IST (M) o a 
tIRSKrjxøL IST EN) GL 
toPxsjruist J 
7ZExxr|stisr 
ess RU IST EN) 6 4 


TE xxr)gtisr 


POPX y xpL1ST. «N) #ያ 


213 


HHL A PY Ss 


se DEF LGORREN"XR z XR? SUBRA LE KIT 
GORREX ITzLEXIT 
1OPXxgLGORR! 
SXE Iris TA (ND 1 
(eo = "#RSXxp xp a LI ST-I 
57! INX yg wt 8 
1SKX xq! 
INXxR | xR:° 
L6 o SXDxp# ** NODIF [ED 
»JPO GORRE XIT* (GORREXIT/GO RREX ITO! "1 LGORRE NO» 
41) 
""RSXxRz2ixRaL1ST 


10 PXxp o LGORR? 


#ፅ/ያዖፀ SUBR 


L6ORRI- LAP ** MODIFIED 
L6 ORRENO- JP O LGORRO 
se END 


DEF LGORLEN"XR XR ? 9 SUBR-LE XIT 
SORLEX IT=LEXIT 


"DPXxp LGOR LI 


ተብ ያጽ፤ጽጽ ያ ፣ጽጽ587ፉ(፳)ፉያ 
46 = If nRSxxR Its 
„ JINX grs? 
1SKX xp! | 
IN Xxg| xR? 
LEORLI- SR Dype ** MODIF LEO 
#JPO GORLE XIT* (GORLEXIT/GORLEXITO! "«LGORLE NO + 
sn) 
"ERSXxp rixR2L IST 
'OPXxg 2 LGORL? 


»JPO SUBR 


— 


LS DORLz ~ SK XX E ** MODIFIED 


1 
L6 ORLE ND- JP € LGORLE 1 
| 
ze END : 
3 
ኳ: ዊ N i 
”>DEF LGORRIEN"XR=XR ?=SUBR=LEXIT i 
SORRIE XIT= LER AT | 
"DPXxp LGORRIt 
m — — "ፎመ ና ደር 
RSXxpsixgLISTe«No)ni1— 
(e I RSXxp xp r — = 
መ= — — E ` T 
47! INXxgue ? es 
r! e Bee, m 
INXxR xpo? 
( i I» SO ** MOD ያያ LEO 


PIPO GORRIEXIT*(GORR IEXIT^GORR IEXI TO » cLGO RR I 


Že END+ 115 


Ë toPxyxR , LGORRIT 
va 


B . 
M ጨመ መ m „ a aa mt mm 8 


HH L A Pr 8 Sit 


##RSXxpzixRaL1ST ** CURRENT NEXT 


JPO SUBR 


an v» TY 


** MODIFIED 


LE ORRI ?- SK Xg” 
12 gSXxpsixRmat I ST ** NEW NXT 

LGORRIENO- JPO LGORRI# 

== END ዘ 


ee DEF LGORLIEN"XREXR #=SUBR=LEXIT | 
' 
GORLIEXITTLEXIT 
1D PXxp LGORLS1 


1? RSXx p3 IxRLUIST+ IN 2 


E 


LGORLI?- “#FRSXxpixR LIST 
#T JINX yg at ? 
"SKXxp! 
IN XxRI xR2? 
LEORLIt- SX0xyg* ** MODIFIED 
„ee GORLIEXIT* (GORLIEXIT/GORL IE XI TO? = (LEO PL T 
END+ 41) 
!'OPXygaLGORLI? 
#"#RSXxpzixRaL1ST **CURRENT NXT 
2 % SUBR 


** MODIFIED 


LEORLI?- SK Xxga2 * 
IPRSX xr የያ ጀጽያ፥ IST ** NEM NXT 

LGORLIENO- JP 9 LGORLI# 

se ENO E 


se DEF GOACEC-R-S 
POPXETItI 


RSXcjeoLIST+TYPE 


RS XcjcL ዓ ፉርዞዙሃ ለጽ 


I" Xc 1E 


IPO T? 


Vio OPXeTI -1 


RSXcjcLIST+CVT Sea 


ra err 


RSXcTI HA 


"” END 


""DEF SUBREA 


STE SUBRI 


^ 
SUBRI- JPO e 


Se DEF SOLVEMIK 


as 


w 


መመ ee መመ መወ መመ መወ መመ መመ መመ መመ ወወ መወ ወመ መመ ወወ መወ ወወ መወ ወመ መወ መመ 


HHL A PY % ei? 


ISTE SLVOR 


NO RMAT 

A EN, +11 ። . | 

IN Ren? Ç 

tlopx,, $LVT I å 
š 


10 PX,, SLVT 2⁄4 
LOPX 5 SLVT 8-1 | 
IN X pyi Kol) NIKE) 82 
10 PX,, SLVTR 

10 PX,, SLYTR? 


Zara SLVTS *»# Nike ri 


sub SLvre 


ISTA SLVTS$+L *e l ጽ(ጀቀያ)-ያ 


| 
f 


"STA SLVT# + 
RSX ¿A 

SL VT2= DE Rani 
RE X ,, #éNIKé ET 
RE X ,,K 
OPX SLVTX 

SL VTI= LOA,, ** SQUARE 
NUL en 
DEX,,K 
DE Keki 


8L VT «> ADO SLVTX 


STA SLVTX 
T! JPX ,, SLV T? 
$T Aen 
BSLvTS- INX,, NIKI) 
INX,, “**NeK* AN =° 
SLvTe- DE Xy, 1 
7! JPX ,, SLV T 4-1 
JPX,,SL VT? 
ዐፆጃ 3LVTS 
IREX arket 
REX, ¡K ~ 
MATER RSx,,SLVTS ~: 
INX Ker) sqK- AI 61 
topx,, SLVTP 
REX,,K =t 
LIST 
LOA,,*SLVTR 


JPA SLVRE 


eya Sa 


COM A 


IREX, ** SINGULAR 


SL vVRa= STA SLVTY 


BL VRI= SXO yy | en 


| spo suvrses 
| 


ፖሥነ 


—U— zn)“ መመ መመ ወመ መመ ወመ መሠ መመ መሠ መሠ nana nn መወ -መ- nn i 


ለዘህ. APY 34-95 | 
LOA,,* SLVTP ፤ 
JPA mou 

g | 


COM A 


JPA er 7 


JP O SLVRS e SE SI 


SUB sivrr 


JN A SLVRe 
LOA,,*SLVTR "SPR MAX 
OIV ,,* SLVTP > 


JO v 5ርሃያ። š e = | 


STA SLVTX 
LOA SLVTP ል 
Zara 5እርሃ?ጽያ*ቱያ 
Zara SLVTP2 
REX ,,K 
SL vr LOA), **LOOP! 
MUL' SLVTX 
SLYraz- $U8 ,, 
sca (-2,) 
STA,, 
=t JPX ,, #እርሃ የፆያ 
IPO SLVRS 
SL vrx- e 
SLvrr- e 
SL vrS= e 
8L vRe= COM A 
JP O SLVTP? -8 
BL vRe= LOA,,*SLVTP **RR MAX 
OItv,,*SLvTR 
COM A 
STA SLYTX 
LOA 5ርሃ ፐፆ 
Zara SLVTP+ an 
RE X ,,K 
re- LO Ay, **LOOP ያ 
MUL SLVTX 
ZL erg, AD 0 , 
sca (-ያ,› 
ST Ap; 
“# JPX,, SLV TR 
96 ሃጽፀ= REX jsa 
OP x *SLVTP 
RE X,,9 
40 „„ SLVTP 


TI JPX,,SLVRI 


40 o SLYTR 
40 „„ SLVTR? 
SO SON ng SLORI 
LOA (Kès,, „ EEF 


LEET Af) 


JNA SLVAD ee TO ADO CONSTRAINTS 


REX ep | za! 


IN Xa tK os) ።(፳>ያ›) 
REX, /K 1 | 

SLVO1= Lo | 
SAB SL V TX E 
OIV zi | at : | 
Jov SLVDI 

BL vo- STA, | gK* ! "Ke a „ FINAL ANSWER 

DEX,,K*! 

-1 AER z, $LVO! 

REX,,K-1! 

LO Any | Zaki ፡ጀቃቀያ 

STA,, prs? 

T7! Jpx, í 8-2 


It [pA SLYTS **ዐርዐ OEGENERACY 


SLVOR- IPO * 


- 


SL vo- REX»; 


140 5 SLYT 8 


sro SLVAD 


t vo :- OP X 4 


848 (-48+.) 


BL VAD+ REX,,K-! +. COUNT DI AG 
RSX,,SLVTS -4 ** MATRIX LOCAT ION 


#DPX,y, 50ሃ40#ቀ/ „„ ro GET POINT VALUE 


IN X 0K01) "K sey) AT LAST ROM 
SL vapi- LOAs} vi "S DIAGONAL 
JPA SLVADE 


JNA SLVADA 


LOA (100,) 
STA,,K ee PUT FUTURE DO IAG IN CONST ANT 
#L vao: -se REX zak -I ee COUNT COLUMNS 


RSX,JSLVTS -4 ** NATRIX LOCAT ION 


IN X py Kerr vike 1991 


Je 
SS: HHL AP YA e 21 
SL VAD?- LOA pira se DIAGONAL 
— JPA .. 5 
Yo INA eet 
JP O SLVADJ, ** SKIP DEGEN EQUATIONS 
LOA rs ** NEXT NON REDUCED TERN 
MUL,,K ** FUTURE DIAG IN CONSTANT 
OIV Ep zs **0IACONAL 
JOY SL vAD* 
BL v4 2 87145 11 **EQUAT ION ENTRY MAY BE ZE 
LÉI 
DEX,,K*1 
-! JPX a SLV AD? 
51 v4 DEX,,K*! 
T7! JPX ,, SLV AD! 
SE Kaike ** MAKE COMPLETE EGUATIONS 
RSX,sSLVTS -1 ** COUNT RO VS 
1 ET "iK 14101 
SL vap s< LO Azi tas +. DIAGONAL 
JPA SLVAD? 
INA SLVAD? 
EXA,,K ** CLEAR CONSTANT, GET DIAGONAL 
con a 
8T A asi as a PUT IN DIAGONAL 
| REX,,K-! 
| SL v4 104757 | as 
| MULJ #9 SET TO MATRIX-K. - a no ናቸው 
| ADD ,,K ** CONSTANT NA 
JO v 5ርሃለዐ። 
STA,,K 
-1 PX, SLV ADA _ — — — 
SL vao ra DE X gi ይ. ገ 3 Pa = 
“A JPR, SLV ADS TU s 
RSX,,SLVTS -1 ** RETURN TO SOLYE pe. PS 
INX ,, UK -11 NIKO) HAN 
| POPX,, SLYTR 
| 10 PX,, SLYTR? 
| ##LOA SLVTS 
17 STA $SLVT $ 
JIPO SLVRI-2 
| #80ሃ4ዐ»፦- LOB,,K**OVERFLOM IN MAKING TERMS 


5፡8 (-”.,› 


$TB,,K 


JPO SLVADI +5 ** MAKE TERMS AGAIN 


SL vaos- sca (-2.) ee OVERFLOW IN FIGURING CON 


ጋ) STANT 
NG. | 
NEX,,K - 
LOB ri wy ++. REDUCE ALL TERMS 
sce (-ያ.,)›) 
d 


878,ታ› ¡175 


T7! JPX ,, ER 


JP O SLVAD?-0 


Se DEF SOLVEMI 
e #STE SOLVX 
NORMAT 
OP x 8 
OPX A 

REX, | z 

IN X,,1 
'DPx,, seo 
JP O #ፉያ 
ADO,,a 
EXA B 
7! JPX,, 0-1 
sre c 
'*ioB A 
sce (-..,) 
Div C 
sjov BADOV 
tes (:..1) 
STE ,,* 
STA za? 
OP X å 
80LvX- jpo e 


so.oo.ol 
ANE 

posoari 
»IPO 
FIXSAP=2JMP 

CCFR-11 
CCFRI= “JM P 


#JMP 


ORIGIN! 


HHL 


START S 


CONSTART 


LPSTART 


IPCONCOMP 


IPCONCOMP I 


AP YA 


Lë 


።።.።” 


ከ።“.ጋ” 


።።”.።” 


17 


።. ። 


17% |sa00s0 


es2rse | 


esseza[ 


ፀ፡”፡፡፣| 


osszes[ 


STARTS- 


DO NE- 


STARTS! 


STARTS: 


RE LA» 


RE ርፀ፦ 


RE LBX- 


RE LC- 


RE LCI- 


RE LC2- 


SRA 


的 人 


HH L APY 5 . 
ISTE DONE 
REX , CURPICS-LIST 


LCORRE SPECB *»«2$- STARTS! 


JPQ # 


STE START SIK 
LGORREPPART »ez$-REL ñ 
LGORREP ICBLKS=0 ።5“ጽ ELA 
Ke 

Ipo +. 

ISTE RELI 

RSX „. (IST. 

sxo y F IXED S-LI ST 

JPO RELX 

RSX rie LIST*TYPE 

RSX yjy LISTO TUPLE 


$xD y * 


JPG RELX ** NOT ለ VARIABLE 


Dër REEG 


INX y 4 


sDPX y REE@ 


DPX , RELAXTHIS ** VAR FABLE 


LGORRSVCON= #=S=RELB-+RELC 


ISTE | RELBX 

22, pa RELAXTHIS 
1OPX a Å 

JPO  ADCONER 
IPO n 

RSX y REEO 

$X0 y * 

JPO RELX 
rBrurLE "TYPE, # 
BEBVARLOCrTYPE,# 
INX oja 


LOA (-REANS) 


Istra RELC! 


LOA rte LIST 


STA yo e. SET TO REANS-K 


SOL vEIREEO- REAN $ 
REX y” p t 
JPO ert 

LOA y REANS+1 

SUB yj. LIST 

sjov BADOV 


MUL OVERRELAXFAC 


| 
| 
f 


HHL APYS ver | 
ADD y REANS+1 
STA rie LIST 


AIPA -y 0-8 


RE LX- JPG e 
**A00 CONSTRAINT TO VARIABLE 

AD CONE R- 
STE AOCONEX 
STA ADCVC ** VARIABLE ,,CONSTRAINT 
RSX s 4 
RSX rig LISTTYPE  *TzTYPE CONST 


LIST*CHVAR ege CHANGABLE VARIABLE s 


RSX Tir 
INX TIT 
JPO er a 


a”LoE ADCVYC 
"SEO ris (0757*ርሃ፣፲8፦ያ ** IS VAR CHANG ABLE 
JPG ao cos 

er po-3 ` ë 


LOA ( e) 


JPG  ÁDCONE x 


AD CONI-DPX  ADCEFF "EFFECT 
ot ER — —— 
RSX sis LIST+TYPE +e erk CONST 
MOVEILI ST+COMP3=" ADCSUB ው — 
— - -— Paang = 


RSX pjg LIST+NCON 


JPO  AOCONIX — — 
ADCON2=DPX r ADCOM TI 

RSX a ADCVC 

»JP 9 "AOCSUB 

STA  ADCSE  ** STANDARD ERROR 

NUL t i 

STA ADCSUM ** SUM FOR CONSTANT S.- 

"RSX s ADCvC 

RSX ra LISTeTrPE 

AUX sir LIST+VARLOC ** 3 POINTS TO VECTOR 


INX s LIST 
“op x s ADVC **ACTUAL VARIABLE LOCATION 


RSX TIT LIST*TUPLE " V Pil mc. 4 

T 15. :3ው of ann | 
RSX 5 REEG | 
INX 5 REEG+ 1 1 
!0PX s AOCEQ**LOCATION IN REEG i 


JPO | ADCON? X 
40 CONI-OPX y ADCONT: 
LOA *ADVC 


ADD (ADCONSTEP- 100) 


jov BADOY 
o STA “ADVC 
€ 
RSX „ ADCVC 1 da 
2 j . "DP 


| AOCSUB=4JPO e 
SUB  ADCSE  ** STANDARD ERROR 


sca (-1,) 


223 


a me aa i : mt 


HHL APY is eet 
I!“ 08 A 
sce d-»».,) 
DIV  ADCONSTEP 
40 Y BADOV 
JPA ae 5 
JNA ses 
JPG ert 
MEN ,., AOCEFF 
RSX y ADCONT: ጮ £^ 
ACE |ጐ መታው ሚሜ 
AD CE@- STA ya å Å 
STA ። 
AD vc- LOA re 
5ሀ8 ADCONSTEP 
STA *AD VC 
MUL D 
ADO ADCSUM 
sjov BADOY 
STA ADCSUM 
AD CON? X- 
T"! JPX y AOCONI 
SEN ,., ADCEFF 
JPO ADCON: XA 
REX y 1 
"AD X y ADCEFF 
RSX y REEO 
AUX y REE OG 
Q'oPx y REEO E A መመ” 
STA y REEO ** ፲ ኮ ne ps ` 
AD CON? XA- 
REX y 2 
AOX y ዳዐር5ሀ8 
RSX y ADCONTI 
AD CON: Ye 
-JPX y ADCON2 
AD CONE X= 
JPG e 
**SKIP IF * FREE 
FREESUB- 
"STE FREESUBX 
torx FRCC ** CONSTRAINT COUNT 
4DPX FRBC **BLOCK COUNT 
10PX , FREE SUBA 


LGCORREVCON*"e-$-FREE SUBI »FREESUB? 


FREESUB tn 


"STE ያጽደደ5ሀ8፡/ 
#LDE a LIST*CVTS 
» seo ( e) 

Pè FREESUBIB 
#SED FREESUB* 


20 


FREESUBIA 


HH L APY s ... ' 
aed 
JPG FREESUBIX 


FREESUBIB- 
RSX 4 FREESUB« 


PUT LECVTSr# +VFL MW 


FREESUB 1 A- 
REX s 1 
!apx s FRBC 
SON CON * TYPE," 
AD X s FRCC 
FREESUBIX- 
7ፆ9 s 
FREESUB?- 
RSX s FRCC 
sxL s t 
JPO FREESUBI 
FREESUBFRE E- 
SUMNE( 1)-! FREESUB X=! FREE SUBX 


JPG FREESUBX 


hja 


FREESUBS- 
sBr UPLE*TYPE,* 


la." ZÈD 


race $XL ge see CONSTRAINTS 


gonz 


JPG FREESUB* 


JPO FREESUB? 


FREESUB 4- 


- Et Z 


"LO E FRBC 


seo ( 1) 


JPG FREESUBFREE 


DPX REEG 


3 


INX s 1 ve TUPLE I 

#pp x s REEO 

LGO RREVCON= #=S+FREE SUBS-FREESUB I 
FREE SUB S- 

IstrE FREESUBSX 

LOE „ LIST#CVTS 


si ap ( 9) 


JPO FREESUBSA 
¿sep ያያርር5ሀ6። 
JPO FREESUBSA ES 
JPO FREESUBIX 


FREESUBSA- 


!"LDA FREE $UB* ** POINT 
4. A o 
% k e A se CONSTRATRT 5 
„ % e AOCONER 7 ES = 
— —e—b SE xj 
FREESUBSX- ES ሮው | 
Pro 4 ca — 


FREESUB #- 
SOL VEIREEO-REAN S 
i SOT YPE,” 


ADO s TUPLE?LIST **K-DEGEN 


11508 FRCC 


መሙመ መመ መመ መው መመ መሙ መመ መመ 


HH L APY b ..፣ X 
JPA FREESUB? 
JNA FREESUB? 
IPO FREESUBFREE 
FREE SUB ?- 
RSX a FREESUBE 
LGORREVELW= ezS- FREE SUSB# -FREESUB X 
FREESUB?- 
SUB REL TAKE ዘርሃፐ Se 
FREE SUBX- 
JPO # 


eege FOUND FREE, EXP AND FREEDOM 


FREEDOM- 
"STE FREEDOM 


REX „ FREEDOMS-LIST 
MOVELEVORDNa>SPECB" P 


IDPX pia LIST+YORO 


REX sie vos o ** 60 ON AROUND 
FREEIBAC- 
LOE s LIST -1 ** FREEDOM RING 


aisEp ( e) ** TO KEY 

JPO FREEDO MX 

162 3X „ E 

INX `e | 5 

DEX g4 

topx s FREE IA 
FREE I» LGORREVFLWM* ወ5= FREE ያ 
FREELA=REX s” 

!"RSX sis LIST 

JPG  FREEIBAC 
FREE» SUBREIGOACES-FREES) 
FREES> 'STE FREE?X 

RSX sje LIST*vORO 

SX0 s WORKS-LIST 

„ee FREESUB 

Jee FREE3X 

REX „ FREEDOMS-LIST 

MOVELEVORD" *=SPECB» p 

10PX ajo LISTIVORO 
FREEIX- JPO œ 
FREEDOMX- 

JPG e 

**« WORK ING VARIABLE INCREASE 
WORKER= STE MORKEX 

REX „ MOVINGS-L IST 

LGORRESPECB re=S=MRK LA 

REX x WORKS-LIST 

LGORRIE# SPEC Bre = 5-“ህጽ KI-=MORKE X 
MARIAM 'STE MRKAX 

RSX sje LISTITYPE 


RSX sis LIST TYPE 


va 


HH L AP YA seg B 
5720 3 VARIABLES-LIST 
JPO VRKI 
URKIAX=JPO # 
* K SUBREILCORR RYCON* ez SeMRKE#) 
ሃሀድጀያ>- "STE ህድደያጽ 4 
P 
LOE a LIST+CYTS ` 
seo ( e) Ë 
JPO WAKI i l 
WAKI JPO e | 
LASA GOA CHE S ህድደ«“ሃጽጀ EX | 
3 


1 ISTE  MWRK4X 
jm 
RSX sje LIST+VØRD a 
Sx0 s WORKS-LIST 
JPG NRK#X 
sro 3 MOVINGS-L IST 
JPO VRK4X 
$x0 y FREEDOMS-LIST 
JPO VRK4X 
asp 5 FIXED S-LIST 
JPG VRKAX 
»JPO , FREE SUB 
JPG WRKS 


aJP O e FREEDOM se. FROR DEBUG ONLY 


JPG WORKER+1 


MRKS= REX 4 WORKS-LIST 
NOVELEVORD= s- SPECO" 
!'gPX p jo LIST+VORD 

r IPO #7 

MORKEX-JPG # 


CONSTART- 
ISTE CONST ARTE 


RSX „ NEWCON 
GOACHa =CNSTICNSTA 
c STI» "STE CNSTI X 
»JPO FREESUS 
JPG  CNSTIA 
#JPQG ORDSLV** FREE 
JPO CONSTARTX 
CN STIA- REX y WORKS -LIST 
MOVEREVORD=: *-3PECB= p 
CN$TiX-JPO 了 


CN Sr JP 8 WORKER 


JP 9 OROSL YV 


CONSTARTX- 


LP STAR To 
ISTE LPSTARTX 
#ፅ/ዎፀ# EL 
sipa. OROSLV 


CLEAN 


PA. 
` 
L 
v 
o 


LP STARTX- 
JPG #7 
OROSLY-'STE ORDSLVX 


REX s MORKS-LIST 


LGORLESPECB=9=5=REL Å < በን SWA 
REX , FREEDOMS-LIST 
L60 RL# SPECB =3->0RD PLV! 
OROSLY X- 
JPG # ' > 1 
OROSLVI- j z AT 
STE  RELX I j 
RSX „1. LISTeTYPE — ë 
RSX vis LIST*TUPLE 
sro „ 
Jee RELI S" NOT A VARIABLE 
OPX REEG 
INX „ 
SOPX y BEER 
DPX , RELAXTHIS 
LGORREVFLW* ezS-RELB +RELC 
CLEAN» “STE CLEANEX 
REX „ WORKS-LIST 
LGORRESPECB ##=S=CLE ANI 
REX , FREEDOMS-LIST 


LGORRESPECB re=S-CLE AN! 


CLEANE X- 
JPG „ 
CLEAN" STE  CLEANIX 
RSX sje LISTTYPE 
RSX sis LIST+TUPLE 
JPR gete 
CLEAN: X- 
JPG z 
LTAKEEFVORD nG 
ር06ዐጽጽጀሃያርህ። ez Se CLEANI-CLEANIX 
CLEAN? - SUB Rz L TAKE SCT Swa) 
IP CONCOMP- 
| ISTE IPCONEX 
sBiPcP,.* 
rBIPCI,e 
eBIPCv. e 


| “Be wHos.. 
| PRODEVAGSIVALSL IST, /PSIZELL IST, EROT S-BADOV 


PRODEVA?+1 gr IVAL? LISTO y/PSIZE+LIST, »BADOV 


SUN M-ROTS-B ADOV 


A i 
ke E SUMN=IP y*BADOV 
; ZS 


IPCONEX! 


yan መመ ሙመ መ-ሙ mm z መመ mm መመ na መመ መመ mm መመ መመ ሙመ መሙ መመ መመ መመ መሙ 


HAC! APIYE Jee == 
sBIPcCP,« 
»BiPCI,e 


eBIPCV,e 


a E8 WHOS,- 


PRODEVA,*IVALe1*LIST,7P SIZE*LIST,zROTS^BADOV 

PRODEVA*1,9 IVAL?LISTy/PSIZE#LIST,-BADOV 

DIFF-ROTS-BADOV | 
SUMM- IP* 1 ya BADO Y 

HOIF,VA+15 


IP CONE Xi- 


a 
` 
° 
` 

< 


Ri- "La 3777s. ! 
ዘ 
ct- JPG 1000.00 f 
8T- #ፆ9 202291 li 
| 
LAST- ZZLAST | 


-ITE:T 


*7 OSTPEN 


*r&sTATEZzOOJIS 24 


ARCTAN 
ATATAP 
ATBITS 
ATCIRCLE 
4ATICL 
ቆየያርረ 
STIL 
ATINS 
AT LINE 
4TPCINT 
rev 
BASICFILE 
BwHos 
ACT 
*CCCROSS 
cen 
CHVAR 
CIRCEN 
CIRCLES 
ELLEN 
"CLCROSS 
COMP 
CONLET 
CONSTRAINTS 
CPNAMEZ 100054 
cse 
cso 
CURPICS 
Cvar 
cvrs 
DEADS 
OE SIGS 
-"0IFrrF 
*ÜInEC! 
”DIREC 
OISPLAY FILE 
OtsPLAY 
*OSHAFT=0015 25 
ERRORSTOP 
TERROR 
TERROR1 
"EXAMINE 
"FABVAL 
FIXEOS 
FREES 


FREEDOMS 


"LLCRCSS 
LPFIND=001024 
LPFINDP=001030 

*LPICNUM=003587 
LPLOST 
LPSEESIZE 

*LPSEEN=003 553 
LPSEE=001101 
LPSEES=001035 
LPSEES?+=001055 
LPSEES 12001050 
LPSEES 4200 1070 
LPSEES 52001045 

*LPSTATEz003541 

*LPTTz005$40 
LPe 

*LSHAFT0035356 
LsP 

MA 58, 
MASTERS 
MERGERS 
MOVED 

"MOVE 

MOVIT 
MOVINCS 
NAME 

NC ON 
NEWCONS 
NLIST 
"NORMAL [ZE 
*NPDENOM=0035 70 
*NPOX=00356 3 
*NPOX2=003507 
*NPOY=00356 5 
*NPOY?2=003586 
”NPOL 

NPOLRz 0014643 
NPO X20014 01 
*NPOLS= 003562 

NPOLDL=001402 

NPOL 1200615 14 

NPOL 220015 24 

NPOL 32001537 

NPOL 42001555 

*NPOLN=0035 73 
NPOL5=0015 046 
NPOL6=0015 77 

*NPTSz005544 


* = 
NPXP=003571 
— 


PSATPEN12002774 

PSAVE 

PSCONVERT=002504 

PSEUDO= 001405 

PSEXI T=002322 

PSIZE 

PSNEED 
*PSNNPS=0036 00 

PSNPS 

PSPENLSIZE=005404 

PSPENDSIZE=003454 

PSPENISIZE=003514 

PSPLz 200047 
*PSRAD=00540) 
*PSSEESIZE=00557» 
*PGT5=0055>6 
*PSTSEE=003404 
*PSTT= 003402 
#PSTy= 001403 
Psx1=002432 
Psx2= 002434 
PsYiz=0074535 
PSY2= 0024 18 

Psr 

Psa 

Psa 

PSA 

PVAL 

PWHOS 
PYTHAGORIAN 
”PYTHI 
”PYTH 

RI[=003413 

s 
*SISTATE=005505 
Sie 

SCALERS 

SCCEN 
"SCNORM 
*SCPSPLz003404 
scsz 

SHAFT 

SHAFT USE 
SHAFTTEST=001572 
SHAFTTESTX=001ag2 
SHAFI=001402 
SHAFTSIZE=001404 
SHAFT PO8z2001440 


SHAFT INS=001433 


ons 
"M$UM 

t8vcoor 

18YERTS 

tavy 

ICON 
co 
*INDO=00 5555 
*INDENOM= 005550 
* INOX 005557 
*(NOK120032525 
*INDX?z001550 
ፈር ማዋ 
efNDrrreorgey 
% e 
rr 
t ?, 
„0 
tn 

INSTANCES 


*”INICLS=0015 zg 


*INTLINES= 00554) 


Voce 
INTOCL 29011 yo 
INTO 209293 
INTOCKZ 0931 pa 
INTOCNZ 003125 
INT OC 12002720 
* roc e 
oc 7 py 
ፈፈ ረጭ ፡ገፇቻምማ 
IWTOCsreesero 
* 
IWTOCezeoreqgs 
INT OCrz00r04g 
ማርያ) 
INTOCI9z005,,, 
INTOC 112005171 
*INTOCLS 003525 
.. INTOCL1zo005150 
INTOCL 12001177 


INTOCL 12095716 


* YE 
NPe 

NES 

NTOSHO 
NUMBERS 

NYAL 
ONCIRCLES 
ONLINE S 
ORIGIN 

PATAP 

P80cc 

P80cs 

PBocP 

PBOLE 

ot s 

PBoLP 
PENOSIZE 
PENISIZE 
PENLSIZE 
PENLOC=001 714 
PENSEESIZE 
*PENSEENz00 355, 
PENSEE=001 104 
PERIODIC=001341 
PICBLKS 
PICCHANGE 
PICNUM 
PICTURES 

PINS 

ሚቆ 

PNAME 

POINTS 

PPART 

PPARTM 
*PREDIC=005575 
"PROD 
P$12001g sa 
PS!A=001340 
PSI1C=001742 
Ps![=0014s42 
P$!Lz001514 
PS IPzodigy s 
PS!TPz0016 rz 
SRS e 
78280070277 
PS?Az00P10,4 
SS c 
SS Ic O 131 
PSICONIZ00 2134 


PSICONIX=002 101 


SNOISP 

SPECB 

89904 
SOGOSEE=z001014 
SORT 

SSHOW 
81200341, 
"STAB 
"STAE 

START S2001000 
" SUMM 

svar 
*ፐ/ 
7 

TEXTS 

TIME 

TOPOS 

TPYAL 

TPVAL s 

TRIAZ O ey 
TRIBz 001183 
TRICZ 001187 
TRID= 001443 
TR2ZOO1 174 
TRIAA=001 177 
TRIA= 001202 
7828200720 
TRICZ 001210 
TR20-001213 
TR2E- 001214 
TRIZO 01220 
TRSZ0 01230 
TRIS=001275 
TREz0012741 
PTRSOz 0034 0, 
*TR/6=0035413 
TRACK 2001115 
TRACK 12001125 
TRACK 22001135 
TRAD= 003423 
TRAPRED=00131> 
*TRB TS = 541, 
TRBys y 
*TRCENT=0055 10 
*TRINC=003412 
TRLOST=0012>4 
TRLPz 001237 


TRLP28=001245 


INTOCL «290201241 
INTOLXz9090341« 
INTOL 12003354 
INTOL 22003353 
INTOL 129211344 
INTO, «2003401 
INTSTART 
*INTS=00r514 
SINK IYPz 003883 
#INKIYIZOOSE L2 
#INIPZOOSSAL 
“INKXPIZOOJ BAD 
*INYPrz0038«06 
#INYPIZOOSSa) 
ino 

twe 

ያሚየ 

IPCONS 

IPCOTP 

ያሚዳላፆ 

cv 

1208 

mor 

181 ZE 

IYA, 

Iwa? 

twos 
"ያያለ 

KINO 

LAsTzoe seso 
"LOAB 
"LOAE 

LEP 

LINES, 


LIST 


Ps21=002143 
587118002161 
Ps?I1X2002 165 
Ps2L=00217 1 
Ps?Pz002124« 
Ps25=002034 
PS2SE=002103 
PS2SLOC=002104 
Ps2x=0032023 
Ps 3=002323 
581427 
PS1Cz002404 
Pss[=002333 
P$13,2002337 
PSIR=002366 
P$1Xz002451 
PS4=002a32 
PSIZOOZAN2 
PS$sCz002501 
P$sCCz002511 
PS3CH=0023 26 
PSSCCI=002s40 
PSSCC?A=z00 2541 
P$3CC«z002555 
PSsL=00247 1 
PSSLL=0026 52 
PSSLC=0OO26 3⁄4 
PSSNE=002582 
PssPuTz002423 
534202667 

8 17002877 
PSAL 2002267 
PSAP=002205 
PSATPEN2002223 


PSATCEN=002234 


TRLP2C=001247 
TRLP2 02001271 
TRLP2 2003243 
TRNSA 2001144 
TROUT =001 565 
TRPOINT=001171 
TRRADIUS 
TRREX 2001244 
TRREX 12001251 
TRRES 2001335 
TRSAV=001303 
#TRSA= 0034 14 
#TRSB= 003415 
*TRSC= 003414 
*TRSO= 003417 
*TRSO= 003420 
Tre 

TRA 

TUPLE 

TVAL 
"TWINNORM 
TxTs 

TYPE 

VA 

VARIABLES 
VARLOC 

VCON 

VFLW 

vogo 

WHERE 

WORKS 
*ZzLAST=003421 
a 

SROTZ 200054 


65IZEz7000ss 


*PLITEIT= 200030 


*PLOSTPENS 200053 


ATPOI NTz3 KM sup 200044 


ATLINEZSKM , „ 200044 


ATCIRCLEZSKM , , 2000424 


ARCTANz»JPQ  CACT 


ATILLTSKM , , 200044 


ፅ የያረር። 


SKN 4.6 100044 


ATICCTSKM ,., 200044 


ATSITS 


ATINS= 


ATATAPZ ? 


BADovz 


Bumos= 


Cc acrz 

c vat z 

c 30 2 
€ IRcEN 
C gës 4 
CEPE i: 
CIRCLE 


C vrs: 


CHvanz 
PX C ONPE: 
N 
CURPIC 
CONSTR 


CONLET 


OIsPLA 
ዐ፪ዶዐዕ5።፣ 


913214 


2100050 


100051 


178 2200044 


1763200044 


1164200044 


2840500200010 


1703200044 


1766200044 


171421200044 


z 200044 3 200044 
SKM ,,, ATB ITS Z 1170200044 
** ATTACHER THING z 7 
GASICFILE= 200033 z 200033 
200100 z 200100 
4 ** TO WHICH PIC TURE BLOCK 8 ELONCS 
z 4 
100007 +1 = 200010 
DÉI ** CIRCLE ANGLE AND RADIUS = Ze 
D 0.41 2301200000001 
e ta eee CENTER z se 
. ** CIRCLE START POINT = re 
, ** CIRCLE ENO POINT z 12 
S= ?*MASBL*PICTURES z 24225 
D ** VARIABLE TO MOVE TO SAT ISFY THIS 
= € 
to “ta CHANGABLE VARIABLES z Ze 
HI **CONSTRAI NT COMPUTATION R OUTINE 
z 18 
$7 I197SMASBL+LI STEN = 24117 
AINTS= *"SMASBL *LIS T+: z 24031 
= !? **CONSTRAINT LETTER CODE z 1, 
Y FILE: 100000 z 100000 
1!*SMASBL*LIST +: z 24097 
Yz 5 **MASTER DISPLAY SUBROUTINE z , 
z 24103 


0£5165 


ERRORS 


FREES: ge SMASBL et IST+ 1 


FREEDO 


FIKEOS 


SETIT 5 


MOVS: 


Z 13"SMASBL si IST +I 


TOPESKM 2,70 1? ?730 


MSZ 6=SMASBL+LIST+1 


Z #ITSMASOL +LIST+1 


, ** MASTER FORMATION SUBROUT INE 


15s" MASOL #PI CTURES 


z 


4742377730 


24841 


—— — 


£ 
v 
` 
a 
a 
7 


JJ e E NE CERVUS - .. 


eo 2222 
HHL LYUO s DSS 
MOWBIGr: e ** MASTER SCSZ COMPUTATION z € 
„N 19 ** FIRST HORIZ OR VERT POINT 


z se 


ዞዕሃዎያ። 12 ** SECOND HO!IZ OR VERT POINT 
2 12 


MOVCODE= 14 ** HORIZ=1, VERTICAL=2, EI THER=0 


MOLDERS= ?=SMASBL RLIST+ 


፻ጄ#ዞደ"። ta ** WHAT PIC THIS IS INSTANCE OF 


z sa 
fumosz 10 ** INSTANCE IN WHAT z m 
I NSTANCES7 #። MASBL*PICTURES z 24348 
1POS= [RO T+2 = 20 
ræor= ta z 16 
I ner ያያ z 37 
[max 33 z ss 
IPCONS? 1 !t*MASBL* PICTURES s ያ«።ሪ/ 
cos: 1e z 1e 
ጦፆርፆ። 10 ** POINT IN INSTANCE-POINT CONSTRAINT 

z se 
INTSTART= 200135 z 200139 
1OVERTS=Z tarMASBL "PIC TURE S z 24535 


IPcorpz 16 ቀ» INSTANCE-POINT CONSTRAI NTS WITH THIS 


VIRGIN z m 

ESIZE= ie ** ጽ v "ys 

ያ፻ሃጸር። 20 *9 R COS e, R SIN 9, X, Y z 29 
የፀሃህ። to ** WHICH INSTANCE IS VERTICAL 

z 10 

IPciz ter ** INSTANCE IN INSTANCE-PO INT CONS TRAIN 

T z LE 

ያጦፆርሃ። ta ** VIRGIN POINT IN INSTANCE-POINT CONST 

SAINT z la 


የ#ሃርዕ0ዐደ። tp ** INSTANCE TO BE VERTICAL, HORIZ, ETC 
z ያያ 


K iNO: sa ** 1=NOT IN PIC, 2=PPART, 3 =PICBLKS 

z 13 
LISTE 24000 *#* | rs7 STRUCTURE START z 24000 
LSP: 19 ** START OF LINE z 2e, 
LEP: 17 ** END OF LINE - 12 


LPLOSTESKM 2,70 200042 = 1712200043 
UPSEESIZE: s ` ke # 


LINES= ፡፡ MASBL*PICTURES E 14201 
3 LPer ያያ z 23 
WASBL z 24 ** MASTER BLOCK LENGTH z sa 


MOVEDESKEM 4, ¡0 200034 z 47412200034 


MASTERS: LIST *! z 24001 


234 


HHL LYuo 006 


MERGERSZ 10" SMAS8B, ti ST? 


MOVITE= ro ** HOW TO MOVE COORDINATES 


MOVINGS= 14 SMASBL+LIST+1 


NPez [NG 
NPRA: INA 

NUNBERS= 10: MASBL "PICTURE s 

„ co ያዖ ** z CONSTRAINTS SHOWN 
NTOSHOZ ta ** SCALER TO BE SHOWN 
NVAL= Ze et RICOS 98€. DIN X, 


NLIST 23000 


NEWCONS= !se*$MASBL*LIST*! 
NAMES 4 ** NAME OF HEADER BLOCKS 


ORIGINS 1000 
ONLINES= !2"MASB, "PIC TURE S 


ONCIRCLES 2 #S=MASBL+PICTURES 


PICTURES= ያያ። SMASBL *. /57*ቱ 7 

ዎሃ/ር። so ** COORDINATES OF POINT 
PENSEESIZE: s 

POINT ST 4 "MASBL PICTURES 


PICNUMZ ያያያያያ፣፥ „ JOF PICTURE YOU 


PICCHANGE zSKM ,,,e CPNAME 
PSNEE OZSKM a, yo 200041 
PINPS= reg 

"PrYTHACORI ANS 200007 
PENLSIZE= s000 

PENOS I ZE: 10000 

Pse: s 

Psar 4 

Psrz ያ 

ፆ5።፡ ? 


PENISIZEZ s000 


ዎያርፀርደ5። ያ **NON PICTURE STUFF IN PIC TURE 


PPART 5 a ** PICTURE PARTS 


产 PARTMz 10 ##MOVING PICTURE PARTS 


Y z 


WANT 


Parapr ያያ ** ATTACHERS OF THIS PICTURE z 


Pingz ta ** INSTANCES OF THIS PICTURE z 


PSIZE= 16 ** SIZE OF THIS PIC TURE 


PNAME £ ir ** NAME OF PICTURE, Je BITS = 


24051 


10 


324111 


**MODEL EMPTY LIST STRUCTURE 


71000 


24133 


242353 


377724 


1712200054 


4712200041 


rev 


100007 


19008 


4 


H 


ያያ 


Psayer so ** 6 REGISTERS TO SAVE IN PICTURE 


Pigs ta ** LINES NO CIRCLES ON THIS POINT 


POocc= 10 ** CENTER OF POINT ON CIRCLE 


1. 


ኣ 
全 全 和 全 本 
HHL L ሃሀዐ 007 
ፆፀዕር5፡ i? ** START OF POINT ON CIRCLE z 18 
ዎፀዕረፆ። ta ** POINT TO BE ON CIRCLE = se 
POOLE: ” ## END POINT OF LINE s 10 
PBoLs= 12 ** START OF POINT ON LINE z 12 
PBOLPE ta ** POINT TO BE ON LINE ። wa 
PWHOST s ** PICTURE IN PICTURES s 6 
SMASBL= 4 **SMALL MASTER BLOCK LENGTH FOR DESIGNA 
TERS s D 
$CSZ-* 0900314 z 200034 
res 200005 z$40500100004 
SHAFTER: SP? Pao z 22771) 
59፡94 200004 z 200004 
SCCEN* 200035 2 100035 
5፡።፡ sa z sa 
SNOISP= 100032 z 100037 
SCALERS= !"MASBL*PICTURES z 1429) 4 
s= 7 ። , 
size: tu se SIZE OF BLOCK = 14 | 
S SHOW: ta ** NUMBERS SHOWING THIS SCALER | 
= 7« | 
5VAL= tg ** VALUE OF SCALER z se 
SPECB= o ** SPECIFIC BLOCKS z 2 | 
SHAFTUSEZSSKM „ „% @SIZE Z 1712200045 Í 
TIMEz 10000, = 11410 
TROUS Y=SKM 2,70 200134 Z 1712200134 
VRRACfUS= 4000 z 4000 
Trec: 9 ** TIES TO SPECB IN MASTER BLOCK | 
: . | 
፤ 
røer ያ z sa 
የጽ#። ያዩ ። 23 ነ 
TEXxT$* #=MASBL+PICTURES = ያ«ያያ/ | 
TUPLE= ta „„ VARIABLES z 14 | 
T VA, z la PERICOS ELA SIN, RI, 27 z ta | 
TxTgz 20 ** POINTER TO TEXT SHOWN z so 
TOPOS* Ju SMASBL eL IST* 1 = 24023 | 
የፆሃ።ር። te **X,Y LOCATION s 14 | 
TPVALS= $*0NASBL*PICTURES ** TYPICAL VARIABLES t 
z 24321 M 
a: z 14231 人 
era, = D 
፥ 
z 24020 


VAE LIST*PVAL z 


"CONT ያያ ** CONSTRAINTS ON THIS VAR TABLE 


D de | 


VARLOCE 19 **LOCATION OF VARIABLES IN BLOCK ! 


z 7 
oo s ** ORDERING OF VARIABLES = D 
ሦያርህ። 19 ** CONSTRAINTS WHICH THIS VARIABLE TS T 


O SATISFY = "m 


VARIABLES = In SMASBL eL pste n = 2400, 


WORKS Pt SMASBL+L ET EE - 24051 


WMERES ያያ ** LOCATION OF THING IN PICTURE 


z 13 


—.— 


| 
| 


”” DEF EXAMINE | e-B 


„ tos, o 


sre 8 


"EMO 


”" DEF NORMAL IZELP=C/S=F=R-0 

LOA P **POINT P AT 

suð c **CENTER C TO BE 

SAB (-'F,)  **NORMALIZED TO 2" as 
#JOV O ** ANO IF OUT, ርዕ TO 

Ot" s **9, LEAVE RESULT 

#JOV Q- tg) sigi ** IN R 

sta e 


”” END 


ve DEF MOVEIA-B 
èL ODE å 

sre 8 

se Eno 

N 

N 

ot? HOIFIP , e- 
LOA P 


sud o 


SCA (-/,-7,,-7,-=7)0#ፁ፤((9) ለ፥(#ታታዐ,,››) 
STAR 


Se END 


DEF JZAIP 
IPA ert 

INA ert 

ro P 


”” END 


PP DEF SCNORM| PRO zën 
Tiré 
NORMAL IZEI P-SCCEN+ TI/SCSZ=R-5 


”” END 


er DJ FFEP-@zRp-s l 
LOA e 
sub 5 
JOY s 
sta e 


”” END 


se DEF FABVALEP-Q 
LOA P 

IPA erf Í 
com a 


sra o | 


N 


-ሙሙሙ mm mm .:i:ñ == m „6“ 


HHL t ro 042 


eF END 


vme DEF PYTHIFSP-0,R-5S=T-U 


LOA R 


sue s ረ 

„ 0 % y+ ts) - ts? 
STA Bergen. tg) 
LOA P 

sus o 

#JOV ye 0! - ig! 
eJPQ PYTHAGORIAN 
JOY y 


STA T 


”* END 


se DEF PYITHEP-=0=T-y 
PYTHIBP-0,P+1=0Q+1=Z=T=-y 


""EMD 


se DEF DIRECIEP-0 es = 
104 „ 

Suë 5 

#ፅያዕሃ 8s 


STA Be „% - (gi 


LOA P 

sus o 

»JOV y- 1'0) «tg»? 
JP CACT 

srta T 


er END 


se DEF DIRECEP-Q=T-U 
OI REC 1 EP- Po “Q+! =T-y 


eF END 


”DEF HSUMEP gg 

LOA P 

ADD e 

SCA [-1,-1,,-1,-1) 2119141017 yo,» 
sta ፡ 


""END 


sme DERF NPOLEP-L=S 
7D PxPA 


D 
Ke 28 


JPO NPOLR 


sra s 
sre se! 


se ENO 


e o 
HHL L YU O e13 
se DEF SUMMEP-=0=R-S 
LOA P 
40D 9 
JoY s 
sra e 


er EnO 


se OEF ፆቋጽቋዐዐዘለ።።/ር።ዐ“ሮ 
LOA A 

mu. 8 

orv c 

eJov E 

sra 0 


”” ENO 


se DEF LOAERA,B,C .,ዐ 
LOA A 

LOG 4*8 

LOC Arc 

LOO 4*0 


e” END 


ve DEF STAERA,B,C,O 
sraa 

818 4.8 

src a*c 

sro 4*0 


ee END 


e OEF CLCROSSUC^L7R^$,T 

orx a 

LIP 

eL OE s ** TO GET 5 IN 9 

#ፅ/ፆዖፆፀፅ INTOCL 

IPO T **ONLY ONE INTERSECTION 
STAR 

sre pr! 


ve END 


ss DEF TWINNORMEP-0=R,5 


NLA P 


qe 9 
NOA (°) 
sra a 
sro s 
com s 
LOA Per 
suð ð+: 
woa 5 


rr 


av መ 
MILI 
ze 


ton RE 


~ 


E) 


ot CCCROSSWP-Q-R^Ss,T 
OPK pa 

"OPxgA 

et OE 5 **TO GET 07$ 

*4JP0 INTOC 

JPO T **ONLY ONE INTERSEC 
STAR 

STO po: 


.e END 


መም ወድድ TUE ርድዕ55#ዖ“*9፡፳“5 
OPK pa 
"OPxga 


#/ፆፀ INTOL 


odov s 
STAR 
ST) pos 


"END 


”" DEF GORREAx ez Bac 


'ornerreicr.tet 


— 


INX AH! 

JP O Ti erter -IC 

ra. REX,8B* (ር›- (C) 
¡PO c 

Tan RSKajaL IST 
snes 
INXaje* 

DÉ Sei 

”L DEL IST I 

seo (e) 


IPO የያፉ#(ረር) tes 
rsPO 6 


| 
| 
IPO Tiro ae? «ter 
”DEF ERRORS o.p 
„% (ERRORIS a+p) 
"* END 3 


HHL truo eis 


me DEF ERROR! NM a+p 
ISTE ver 


SKZ ERRORS TOP 


«DEF LOABEP 
LOA P 
LOG Pe 


ze END 


se DEF 374822 
sra P 
STO Per 


”* END 


` “ሠ. OEF #፳4,። 


RSXajal IST +A 


r 242. 


HHL L Yvo MAI | 
! 


22% % CH 


IPO. 3006PSEE ”"..” 1 eos Z 
poroso; ki 
JPO STARTS 77% „%%% %%% 200040 tr 
»JMP PSEUDO % evigos|] oun | 
PS PLA 7 k %. „%. 0.1 | | 
° |ooooon soooooj oas lè 
° ** THINGS SEEN eee eee | 
ze... Í | 
če mame - D . %%% esa n 
asiZE=» 9 e % oss š 
ag 0 e e 200220| oss | 


no... .¡ 


LIMP TRACK 17. seiiis| 134 


ORIGINI 


HHL L YUO 001 
STARTS? cs, 
DER LPSEEN 
OPx PENSEEN 


MKZ TRBUSY 
MEN. LPLOST 
MOVEISHAFT-LSHAFT 
MOVEIPICNUM-aLPICNUM 
STE CPNAME 
RXF „ LPFI NO 
JPO  INTSTART 
SOeeseEE= 
RSX sie LPSEEN 
JPO ert 
^LOE 3 LPSEE 
STE one PENSEE 
er aieg- 
MOVEI L PSEEN-PENSEEN 
oer  LPSEEN 3 
OPx LPTT ** 50 IT'LL SEE SAME LINE AGAIN 
JPpo 200004 
LPFINO- CS9,, 
"pog ng 30000 
LPFINOP- 


SNZ LPLOST 


JPO LPSEES 
#LOE “(yo 777777) 
STE PREDIC 
OPx LPSEEN 
**tF LIGHT PEN NOT LOST 
LPSEES-REX LPa" lyo rrr rrr) 
#LDE (pa * 
#ITE ( ያያያ,,ያዖዖ› 
#SED LPTT **SAME POINT As LAST TIME 
d JPO LPSEES 
STE LPT? 
DEX ¡po DISPLAY FILE ** INVISIBLE POINT? 
SXL |pe"BASICFILE 
JPO LPSEES 
RSX ¿pe LPSEEN 
JPO LPSEES? 
LASEES Kë 
#LDE LPTT 


| SEO ¿pe LPSEE 
JPO LPSEES 


L^stES ?- 


IPE ¿pe LPSEES! 
RSX ¿pe LPSEEN 
INX (pa ! 


SXL ¡po LPSEESIZE 


k JPO LPSEES 


244 


ሙሙሙ ሙሙ ሙሙ ሙኤ መ mm -- mm momo mmm mm mm mm mmm mmm mm ው zm momo mm ው mm mm “ው mm ሓው 


HHL v ee? 
MOVEILPTI=LPSEE-l pa 
OPX ¿pe LPSEEN 
RSX ¡pe PENSEEN 
IPO LPSEES4 
t^stts?- 
eLOE L PTT 
SED , pe PENSEE 
JPO LPSEES 
LPSEES «- 
er upo LPSEESS 
RSX ¿pe PENSEEN 
INS (pa ! 
SXL ¡po PENSEESIZE 
JPO LPSEES 
MOVEILPTT-PENSEE-!, pa 
DER ¡pe PENSEEN 
JPO LPSEES 


LPSEE- ላ 


PENSEE= 9 


. 
. 
TRACE= MEN TROUSY 
EXAMINE 16 0-SISTATE 
SEN „ „ SISTATE ** CONNECT 
JPO TRACK! 
SEN „. e SISTATE 
JPO TRACK 
TRACK I1=0PX ¿e TREO 
C39,0 
1108 go „%%. 
EXAMINE 15S“ LPSTATE 
‹ዐፆ። ,, TRIS 
21 0E PREDIC 
STE TRCENT 
1108 „% 30000 
SKZ LPLOST 
JPO TRLOST 
TRACK 2=REX gg TRLP 
4LDE TRCENT 
asTE  TRPOINT 
sTE TRPOINT*1 
MKZ „ „, TRBITS 
LOE  TRCENT 


aart  TRPOINT*?* 


STE TRPOINTes 


"SX tao (TRAD TRRAD IUS) 


"REX የጽ#("ጽ።»። 


Teias Papx Tre TRPOINT 
rso TRPOINT 
%% ren TRCENT 
AOX res TRPOINT 
Te ve 'A0X pwo TRPOINTAI 
TSO TRPOINT+1 
'A0X ren TRCENT 
taox Tre TRPOINT+1 
r ?ADX ren TRPOINT+2 
rso TRPOINT+2 
TADX rwa TRCENT 
”aox ren TRPOINT+2 
% /ለዐጆ pwa TRPOINT s3 
የ50 TRPOINTes 
'ADX res TRCENT 
TRNSA= SEN , TRBITS 
JPO TRLOST 
JPO TRACK? 
TRPOINT= 
e 
e 
° 
° 
14 #LOE TRAD 
STE TRINC 
TRIAA= cr TRINC 
RSX rgo TRINC 
"REX rpa?TRINC 
YO ta. Tso TRPOINT 
'"A0X ren TRPOINT 
REX „„ TRLP 28 
TR 78 rso TRPOINT+1 
“apx ren 'RPOINT»1 
REX on TRLP2C 
Terco  TSD TRPOINTez 
% የጽ.» TRPOINT+2 
REX ,, TRLP?D 
Ye ?0- rso TRPOINTes 
'A0X የሌ» TRPOINTe3 
REX ,, TRIP? 
føre» sxL Tra 190 
JPG TRAA 
Te s- NEZ LPLOST 


tros ss 120000 
Iren go 30030 
130 3CPSPL 


1350 scPsPL 


| 


Teo” REX ee 2 
N SKZ 2.4 LPSTATE 
på 1105 yg 30000 
res? 1108 po 20000 
ALOE SISTATE 
ISTE gon 
SKZ ,,, SISTATE 
“ros go 30000 
DER yg TRr« 
EXAMINEIT4-7 ra STATE 
RXF ng TRSAY 
14 i SKZ „5 „ SISTATE ** FLAG 
IPO zreeg 
JPO *TR«* 
TRREK= STE  TRREX! 
REX 
REX 
REX 
REX 
TRREXI=IJPO e 
A PS MEN ,,, TROITS 
„ee TRREX 
Adi 8 DUET, 
»JPQ TRREX 
Läd NIC ug t 
nipa TRREX 
PRANE 2:67 
'A0X ren TRPOINT#3 
RFO yo TR? 
የጽቢዎያ= "A0x pwo TRPOINT 
RFO so TR?B 
TRLPIB="40x res TRPOINT+1 
RFO yo TRIC 
TRLPSC=TADX ren TRPOINTO+2 
፡ RFO go TRIO 
TRLPZO='ADX ren TRPOINT?3 
REF „ „ TR?E 
JPO TRLP? 
TRLOST-=0PX TRBITS 
MOVEI( LPFINOP) ^" TRIS 
SNN LPLOST 
REF ap “PLOSTPEN 
"ros „ 20000 
JPO TRIS 
TesAv- STA TRSA 
sre fese 
src TRSC 
sro raso 
orx A 


19304 (-1,-2,,.-1,-1) 


GT ag 


np 


x 


A 
ETAT: 


d 
| 


pups 


HHL L YU O ees 
374 TRSO 


TRAPRE D~ 
SKZ LPLOST 


JP?  PERIODIC 

MEN PSNEED 

LOB TRPOINT 

cos TRPOILNTO+1 
LOA TRPOINT+2 
"LOA TRPOINTe3 
STA TRPOINT 

1%:00 a 

ግ።ዳርዳ የ57 Pana l8) 
EXA TRPOINT 

195,8 8 
LOA TROUT 
"JON gèt 

“LOA TRPOINT 
Ziiopg so? 
ZILOA  TRPOINT 
STA  TROUT 

sra PREDIC 
EXA TROUT+1 
EXA TROUT+ 2 


EKA  TROUT*1) 


STA TROUT+ a 
PERIODIC- 

REX 

REF ay *"LI TEIT 

#JPQ SHAFTTEST 

LOA  PICNUM 

EXA LPICNUM 

sds LPICNUM 

“IPA asi 

IINA get 

IPO era 

MEN PICCHANGE 

LOA LPICNUM 

STA  CPNAME 
TRRES= LOA TRSO 

„  TRSO 

LOA TRSA 

L08 fese 

ርዐር TR SC 

Loo TRSO 


MK Z  TRBUSY 


JPO *Tmr« 


TROUT= ° 


A 


mm mm mm sm ሙመሙ — ůP———ẽ mm ው mm mm mm mm “ው ው ው ው mm ሠ” mm “ሠ mm mm mm mm wm መሙመሙ 


HHL L YUO 0 06 
. 


swarrrEsr= 


(STE SHAFTTESTX 


LOA SHAFT 
EKA LSHAFT **LAST POSITION 
„% LSHAFT 
STA OSHAFT ** SHAFT CHANGE 
% ቦለ SHAFI 
ያ# አ. SHAFI 
JPO SHAFTTESTX 
guari= #ፆዕየያሃ ( 40,40,,40,40) 
af” jov SHAFTTESTX **BIT ERROR 
SHAFTSIZE= 
%% DA OSHAFT 
JPA “ቀያ 
INA ar? 
JPO est 
MEN MOVED 
MUL scsz 
s48 (-*.,) 
LOA scsz 
5ሀ8 8 
sra 8 
N sve ( 1.) 


INA ert 


tos ( 2,) 
ADO ( 777, ,9) 
JPA sn. 2 
£08: 61:07 
sre scsz 
ዐያሆያዘ፤* 5931 ZE>'" DSHAFT="" asizE-! BADOV 
SEN  SHAFTUSE 
IPO SHAFTPOS 
SHAFTINS- 
* OIFFE'S a`koT-'"! OSHAFT=*? apor-BADOY 
JPO SHAFTTESTX 
SHAFTPOS- 
OPX aror 
% O DSHAFT 
MUL scsz 
SAB (-ፆቅ-»,) 
LOA SCCEN 
400 8 


sra SCCEN 


23 ዕጸ DSHAFT 


$ tejpa goes 


72JNA g2? 


IPO ert 
MKN MOVEO 


7 DA OSHAFT 


Cue! 


HHL L YUO 00 


MUL scsz 
san (-*ቅ-»,) 
LOA SCCEN+ I 
ADO 8 
sra SCCEN+ 1 
SMAFTTESTX >= 
JPO e 
NPOLR- "STE NPOLX 
gra NPOLS **POINT,,L INE 
RSK mp3 ^ 
RSX አ#።።|አቦፀ LEP+LIST 
RSX „ese (5"*ርያ5 7 


SXO eve, 
JPO NPOLOL **OEGENERATE LINE 


LOA VA, pa 
sus VA, pa 
NOA ( °) 

STA NPOX 
sro wers 
COM wers 
LOA VA*!upa 
308 421% pa 
NOA NPTS E | 


SEN 4.” 0 


IPO er? —— 
sca 0 
IPO erg 
EXA  NPOX 
com 0 
sca ዐ 
EXA  NPOX 
STA. NPDY 
NPOLI= MUL A 
STA NPDY? 
LOA NPOX 
muL  NPOX 
STA ጽዖዐጽያ 
ADO NPOY2 
sca (-1.,) 
STA NPDENOM 
NPOLI- . RSX ypa NPOLS 
LOA ypo Va texi 
MUL NPOX? 
SAB (-!.) 


DIY NPODENOM 


| STA NPXP **x POSITION 
LOA mpa VA??? YO 

ዳ muL  NPDY? 
SAB (-:,) 


DIY NPOENOM 


HHL ር ሃሀዐ ፀ7ፀ 
STA NEIE 
NPOLIZ LOA wpa VA **ጽዐ 
muL Por; 
5ዶ8 (-1,) 
DIV  NPDENOM 
ADO ጽዖጽዖ 
„%% BADOV **CAN*T HAPPEN 
sra NPXP 
LOA „e VA+ 1** yo 
MUL NPOX?* 
san (-1,) 
DIV NPOENOM 
ADO NPYP 
»10v BADOY 
STA NPYP 
NP OLE" LOA mpa VA?! 
SUB ups YA?! 
sca (-1,) 
MUL NPOX 
MUL NPOY 
ዐ፤ሃ NPOENOM 
a00 NPXP 
% NPOLN **NO POINT 
STA NPXP 
NPOLS= LOA mpa VA 
SUB mps VA 
sca (-1,) 
MUL NPOX 
"UL NPDY 
orv NPOENOM 
ADO NPYP 
»JOV NPOLN 
sra NP YP 
NPOLE= LOA NPXP 
L DB NP YP 
NR OLA" JPO e 
NPOLOL “LOA ሃደ አይ» 
LOB VA?! Ge 
JPA NPOLX 
PsEUDO-'sTE PSEXIT 
SKN LPLOST 
IPO ert 
oer ATBITS 
JPO PSEXIT 
LOA TROUT+ 4 
e sta ess 
„%  PSTS 
MUL scsz 
gan ( ፡#›,) 


ADD SCCEN 


AYU 


Psi- 


Ps 74 


PS ij» 


PgiTP- 


Ps iP- 


MUL 


548 
ADO 
STA 
RSX 
sxc 
PQ 
LOA 
MUL 
374 
REX 
or 
RSX 
¿PO 
LOA 
?ec 
cra 
tra 


RSX 


( 10.,) 
SCCEN*1 
PENLOC +1 

Pse PENSEEN 

psa ° 
PSATPEN 

(PSPENL SIZE= PENLSIZE,, 9) 
sc sz 
PssEESIZE 

Psa ° 
PSNNPS 
Ps“ PENSEEN 
PS iX 
pge PENSEE 

ra ( 0,0,,10,,0) 
(-10.,) 


( 1177) 


Psy ^ ##PSy=SEEN BLOCK 


Ps"ETYPE,PSY 


*oPx Ps» A 


374 
sxo 
JP9 
sxo 
JPG 
sxo 
IPO 
sxo 
JP9 
sxo 


JPa 


Psa PSNPStS 
Pss CIRCLES-LIST 
Psic 

Pss LINES-LIST 
PSIL 

Pss TPYALS-LIST 
PSITP 

psa FREES-L IST 
PSIX 

Pss POINTS-LIST 


PSIP 


MOVEIPENLOC=PSNPSps 4 


MOVEIPENLOC+1-PSNPS tips, 


MOVEIPSSEESIZE=PSNP S+? pa, 


INX 


#ዖ9 


Psa * 


Ps IX 


LOABETPYAL+LIST ps, 


JPQ 


.., 


LOABEYAp,, 


STA BEPSNPSE«, 


DIF F-PENLOC=-PS1x 


EKA 


DIFF-PENLOC+1-=PS1x 


^JPO P YTHAGORI AN 


Jov 
sus 


spa 


PSIX 
PSSEESIZE 


PSIX 


vis 


V 
፻ 


.. 


TI 


HHL LYuo ፀ7ያ 


INX pg, * 


JPQ Psix 


PENLOC= * 


WU 


Psic- 


Pg ix- 


ps :- 


PS 23- 


0 
RSX psal PENLOC -VA) 
NPOLEPSA-PSY=PSNPSp ga 

PYT HEPSNPSp ga” YA pop “PSNPS+? pas” PSIX 
SUB PSSEESIZE 
JPA PS: K 

INX pg, * 

IPO PSIX 

RSX Pages, ESP+LIST 

RSX poy |PSr CIRCEN* LIST 

PYTHEVA 558” VApg y PS RAD>PSIX 
DIFFEPENLOC *! VApsy +12PSTT=PSIX 
sra 8 

OIFFEPENLOC “VAp gy=P STS=PSIX 

PYT ዘ/መመመዎ6/ጃ 
374 PSTU 

sue PSRAD 

STA pga PSNPS+< ** FOR CENTER 
FAB VAL 

STA psa PSNPS+2 

SUB PSSEESIZE 

JPA Ps!X 
PRODEPSTS.PSRAD/PSTU"PSIX 
$UMM*VAp, ,7 PSNPSpg, "PSIX 
PRODEPSTT=PSRAD/PST ሀ“ፆፅ5 1X 
SUNM-=VA+Ilpgy=PSNPS+ ! po , "PSIX 
INX psa * 
“'JPX pge PSA 
DER pg, PSNNPS ** 2 OF NEAR POINTS 
RSX pse PSNNPS 

sxç Ps“ e 

JPO PSATPEN 

LOA (PSPENOSIZE= PENOSIZE,, °) 

muu. SCS) 

sra PSSEESIZE 

LOA ( sr7,.0,,.0,.0) 

sra PSTS 

Dex PSTT 

480 PS éi 

IsTE esst 

SET YPE, PSY 

REX es 

„6 % s LIST “WHERE 

STABEPS?SLOC 

DIFF*SCCEN-PS?SE 

FAB VAL 


sus scsz 


** SIZE OF PEN IN 36 BITS 


2.5 Å 


— — A — ክር Pl 


| 
| 


wi 


HHL t Yvo 013 
INA gt? 
JPQ ፆ5ያ5፻ 


OIFFEPS?SLOC*!-SCCEN*!-^PS?SE 


FAB VAL 

suð scsz 

INA erf 

JPG 5328 

PYT HEPS ISLOC-PENLOC =PSTU-PS ISE 
$08 PsTs 

JPA  PS*SE 

ADO Parts 

sra PsTS 

sos PSSEESIZE 

JPA  PS?*SE **ዐዕዕ፣ TOO FAR AWAY 
MEN a.p PSTT 

oN psy PSTT 


„sg JPO e 


PsesLOC= 
° 
° 

PS?4- RSX pgajpso PSNPStS ** GET NAME 
'esx PsyiPpse PSNPS+ s *» GET TYPE 


SXD ps, CIRCLES-LIST 


Jeo Paie 


SKO Psy LINES-L IST 
JPO PS ?L 


$X0 pg, INSTANCES-L IST 


Jeo es 
SxO psy TPVALS-LIST 
1% Pst*P 
$X0 pg, POINTS-LIST | 
Jea sz 
*LOE pey LIST+TYPE š 
'sE0 ( CONSTRAINTS- LIST) 
JPO PSICON 
Jeo es KM 

ien i ፻ 
JPO 5 3823 
JPQ PS2x 

P$ CON=INX psa LIST*CVTSe? 
or x psa PS*CON! 
PS8 BCHVAR,P SY 
INX pssipss 
JPo PSICONIX 


PS ?CON — 
LOA pse ** SET TO FIRST VARIABLE 
RSX pg, A 
ELA] PS?S 


Ps CON IX” 


"t1PX pga PS?CON! 


aS 


HHL L YU O era 
e ዖ5ያጃ 


ጦ57 ።+  GORREVCON"PSB=PS5y-P52[1-P52X 


Pgzfs= 'STE PsziiX 


LOE ear LI ST * 
"SED ( IPCONS-LIST) 
JPO ar? 
Pg rtix-1PO0 e | 
PsrBIPCP,PSY 
JPO 2875 
JPO ዖኃ5ያያ፻/ጃ 
Par: PsrBisP,Pss 
JPO #ዖ5ያ5 
Psr BELEP ,PS 
sipa PS?s 
JPO ዖዕ5ያጃ 
P$?c^  PsrEBcsP,Ps? 
JPO P325 
PSr BcEP es: 
nipa. 28285 
Ps”x- “JPX pse PS?A 
SEN e.p PSTT 
JPQ PSI 
PSAP- RSX „ PSTT 


SAT rer, e 


DPX „ ATBITS*! 
torx y ATBITStI 
„ee y LIST “WHERE 
STABEPSPL 


Loa ( 1) 

$x0 s POINTS-LIST 
LOA ( ያ,.ህ 

sro s INSTANCES-LIST 


104 


一 


200,,1) [5 
STA  ATBITS 


ፈጤ PSCONVERT 


PSATPEN- Y 
RSX pga PENSEEN ië 
sro pge ! IS 
JPO PSATCEN 5 

PSATPENI= |E: 
LOA  PENLOC ai 

1 


LOS PENLOC *! 
oer 471877853 
STA PSPL 


STB. PsPL*! 


180 PSCONVERT 


። 
PsATCE NO | 
° RSX pss PSNNPS 
SXL psa |! 
JPO PSATPEN! | 


HHL L YU O ° s 

"RSX psy es ves 
$X0 ps, CIRCLES-LIST 
JPO er? 
IPO PSATPEN! 
LOA  PSNPS*« 
JPA PSATPENI 
A00 PSSEES IZE 
JPA PSATPENI 
ADO PSSEESIZE 
INA  PSATPEN! 
RSX pse PSNPS+3 
RSX pse|pse LIST*CI RCEN 
NORMAL IZEIV Ape a "BCC EN/SCSZ=PSAY “£N! 
NOR MAL I ZEIV A* I p ,*$ CCEN+1/$CSZ= ^s AT PEN! 
GER pse PSTT 
JPO PSAP 

PsAL* LOA PSNP3 
Los PSNPS+ ! 
LOC PSNPS* I 
oo ( 1) 
723 * pgo PSNPS+3 
SXO pse CIRCLES-LIST 
MEN ('UATCIRCLE ^ e D 
SXO pge LINES-LIST 
MEN TFATLINE? A (3737 97, ))+ D 
$X0 psa INSTANCES-L IST 
MEN '!ATINS? AI? 0 
ssc ATBITS*1 
sro ATBITS 
#sTA PSPL 
sra PSPL+1 

PSCONVEAT- 
SCNORMIPSPL =?! scPsPL-( 0) 
SCNORNI PSPL +1=1=?? scPSPL-( 0) 


CPSEXIT-IPO e 


` 

Ps s> RSX pga PSNNPS ** REMOVE FROM PsNPS 
JPO PSIX ** IF NEAR POINT OU 'stoe 

PS 14- RSX pga|psa PSNPS+J ** END POINT 


"RSX psyipse PSNPS* 3 
SXO pg, CIRCLES-LIST 
seo PSIC 
SxO pgy LINES-LIST 
JPQ Par 

P311- RSX pga PSNNPS 
SKO pgs * 
7#9 Ps“ 
IPO PSIR 

Psst- PsrEBLsP,Pss 
Psa HEP,PSA 


HDI FIVA 62). PSNPSp, o “PSTS 


HHL L Yvo ore 
HOI FIVA pga. PSNPSpga 
muL PSTS 


NAG ( °) 


IPA PSIR 
HOI FIVA +!pg , ,PSNPS* ! pco ^PSTS 
HDI FIVA #8 pg 4. PSNPSp go?! 
muL PSTS 
NAB ( ei 
JPA PSIR 
Jee PSIX 
Ps LA A RSX pss PSNNPS 
DEX psa * 
SXG psa ° 
JPO PSATPEN 
OPX Psa PSNNPS 
SXO psajpse ° 
JPQ PSIX 
LOAESPSNPSpgg.! ,2,3 
STAE#PSNPSpga.! . 
JPQ PSIX 
ps 1c-  PSrBcsP PSP 
Ps» BCIRCEN, PSA 
OIRECE VApgy VApsač STS-PSIR 
DIRECEPSNPS pg o” VApg g=PSTT-PSIR 


sus PSTS 


L08 LIST+C YAL p ga 
SKZ 4.9 8 
com A 
JPA er? 
INA +? 
OPx A 
ዐፆጃ B 
CAB (-!,) 
87 PsTs 
LOA pgg LIST*CVAL 
JPA ar? 
com A 
sus PSTS 
JNA PSIR 
Psx= 7*JPX pse PSIA 
Pp en RSX pgo PSNNPS 
SXG pge * 


4PQ PSATPEN 


SXO pse * 


JPQ PSAL 


8፡0 pge !? ki 


PP Pss **AT INTERSETCTION 


JPQ PSATPEN** TOO MUCH CLUTTER | 
ቀና | 
Pss- „sR pge PSNPS+I 


; 'RSX pgp PSNPS* 144 


sxo 
#ዖ9 
sxo 


PG 


Pse CIRCLES-LIST 
Pssc 
Psa LINES-LIST 


PSPL 


ERR OREPSI=PSATPRENI 


LINT sxo 
JPQ 
sxo 


#ዖ9 


Pss LINES-L IST 
PSSLL 
psa CIRCLES-LIST 


ert 


ERR OREPSB-PSATPEN! 


RSX 
RSX 
Po 
Ps 1c- sxo 
ያዖፀ 
sxo 


PO 


Pse PSNPS+3 

Pss PSNPS#J3 ra 
PSsLC 

Pss CIRCLES-LIST 
Psscc 

Pss LINES-L IST 


er? 


ERR OREPSB-PSATPEN! 


RSX 
RSX 
JPQ 
PSICC> ASK 


RSX 


pse PSNPS*1*« 
Psa PSNPS+3 
PSSLC 

Pse PSNPSs.5 


Pss PSNPS+1 Ha 


MOVEI( 100, ,2)-PSTSEE 


CCCROSSEPSA-PSB=PSX ies es 


src 


sro 


Psxt 


Psy? 


P3 8ርዞ“ PYTHEPENLOC=PSx1=PS Ts-PSscc I 


sra 


ፆ5፤ርር”/ዖ፦ 


PSTS 


PYT HEPENLOC PSX ?=P3 TT-PssCC 1 


sus 
JNA 
P$*cC*-7L0OAÀ 
LOB 
JPO 
PSBCCH-LOA 
Los 
PS INE» STA 


sre 


PSTS 
PSSCCI 
Pai 
Part 
n.3 
Psx: 
Psy? 
Psx: 


ፆ57ሃ። 


PRODE(PSPENISIZE- PENISIZE, ,?)*SCSZ-PSSEESI ZE 


PYTHEPENLOC-PSX ! PS TS-P34 


sus 


JPA 


PSSEESIZE 


PSAL 


SCNORMI PSXI zPSTS->PS 2 


SCNORMI Part T!zPSsTSs- PS. 


LOA 
08 


»sTA 


Psx: 
Lef WéI 


PSPL 


— 


gen 


= 


KH 


25% 


HHL L YUO 020 
se sel 


PS sPuT —L OA PSNPS+ I 


d Los PSNPS+ 443 


ኣ LOC PSTSEE 
»STA ATBITS*! 
asre ATBIT S+? 
src ers 


JPO PSCONVERT 


Le AE D 
es vi o 
Psxr- . 
PS re- ° 


PSILC= WOVEI( 40,, 2)>PSTSEE 
CLCROSSEPSB#—>PSe=PSX I»PSK,PS6! 
src PSxX? 
sro Psr? 

JPO PSSCH 

PSU? ASK Pse PSNPSe3 
RSX Pss PSNPS+I ra 
ULLCROSSEPSO SPSS “ዖ5« 

MOVEI( 20,,2)-PSTSEE 
ee PSINE 

Pse- LOA PSNPS+? 
5ሆ። PSNPS*?*24 
JNA PSAL 
LOAEEPSNPS+ 4,1,2,3 
STAESPSNPS, ፡,ያ, 7 
JPG PSAL 

ፆ5፡፡/፦ #ፆ9 PS SNE 
** I NTERSECT ION OF ያ CIRCLES 

INTOC= #'5፣ጀ  INTOCX 
"IsTE — [NTOCN **NO INTERSECT ION 
STA INTCLS **POINTERS TO CIRCLES 
RSX tyo ^ 
ዘ#ጀር5ዖ,ያሉ፡ 

INSECIRCEN, ING 
PYTHEVA ን” VA ¡ya INR!TINTOCN 

INTOCI= RSX ¡ye INTCLS 
IN* BCIRCEN, ING 
IN*"BCSP.IN* 

PYT HEVA pwa” VA ¡ya 2 INR? INTOCN 

RSX ¡po INTCLS 

INSECIRCEN, ING 

OIFFBSVA* 1; u gr VA +1 y S2 INOYTI NTOCN 
sra 8 

Or FEVA pwa” VA jyoZINOX-INTOCN 
PYTHi===INTOCN 

STA INDO 


„ roc INRI 
A00 INR? 


መወውወ ወወ BOSO መመመመመመመመ መመመመ መመ መመ መመመመ መመ መመ ሙሙመመ ሙመ — 


HHL t YU O e? 


ፅ/ዕሃ est **CIRCES CLOSE ENOUGH 
STA 8 
suð INDO 


INA. INTOCN **CIRCLES TOO FAR APPART 


LOA 8 
sca (-1,) 
374 INTS ##RiI+R 2/2 


sta 8 
INA ge? 
CON A 
A00 INDO 


INA INTOCN "TONE INSIDE OTHER 
INTOCI-LOA 8 

MUL INTS 

SAB ( 1,) 

DIV INOO **AzF OF P26 

STA INFF 


INTOC*-*HOIFIINDO,INFF- INCL O **CENTER L INE OFFSET 


FAB VAL ^ INTS 
Suð INRI 
aspa ( 0) ** SHOULD NEVER JUMP 
EXA INTS 
ADD INR! 
sca (-1.) 
MUL INTS 
zap ( 1,) 
307 
STA INRAO 
IN TOCS-PRODEINDK*"I NRAO/INDD=INYP-INTOCN 
PRODEINOY*I NRAO/ IND D=INXP-INTOCN 
PRO ዐዘ ጽዐጃ።ያ NCLOZIND DZINXPI-INTOCN 
PRODBINOY"INCLO/INDDEINYPI- INTOCN 
lorx  INTOC* 
INTOCE SUN MEINXPIZTINXPZINOX=(. 0) 
OIFFRINYPI- INYP=IND Y>( 0) 
SUMMAVA +1 ¡y ¿=INOYI=INTOC7 
SUNNEINOX=VA ¡yo 2 INOX!7INTOC? 
MEN ,,, INTOC?* 
INTOCI-=DIFFRINXP1=INXP=INX P^( ei 
SUMMEINYPITINYPzINYP-( 0) 
SUNMVA +1 ¡y oZ INYPTI NTOC # 
SUN MEINXP=VA ¡y a ZINX P>INTOC# 
MEN 1,2 INT OCH 
IN TOCO-REX ¡ya ° 
ero mart! 
JPO INTOCN 
SPO  INTOC* **swAP 


180 INTOC1 @ 
JP9 INTOC! 194 BOTH 
INTOC*-LOAÀ tox! 
ርዐ# INOYI 
JP? ert 
IN roc 
LOA  INXP 
LOB IN YP 
INTOCX-*JPQ e 
t ro 
LOA  INTOCX 
'aoo ( 1) 
STA INTOCX 
Loc INOX? 
LOO  INOY! 
JPQ INTOC1 9 
IV roc IPO e 
**L INE AND CIRCLE INTERSECT ION 
INTOCL^»'sSTE  INTOCX 
"'$ TE  [INTOCN 
STA  INTOCLS**CIRCLE,.LINE 
"RSX jwe Å 


"LOA pwe CIRCEN*LI ST 


#JPQ NPOLR **NEAREST POINT ዕጽ LINE 


STA INXP 
N sre INYP 
RSX twe INTOCL S 
INS BCIRCEN, ING 
IN? BcsP, [Ne 
suð YA ma 
20 Y  INTOCN 
Era B 
sus VA+! pwa 
#JOVY INTOCN 
IN FOCL #።፦ 
PYTH: 
^JOV INTOCN 
sra INOD 
PYTHEVA pwo”? YA pw ST INR! TI NTOCN 
suð INDO 
JNA  INTOCN 
374 8 
LOA INR! 
ADO INDO 
sca (-1,) 
"ሀር 8 
SAB: 'ድፉያ:,ቁጎ 
sont 


STA INRAO 


IwrOCL +” 


x ee | 
ol 


HHL L Yvo 9.27 
INSBLSP, [No 
IN#BLEP , fye 
DIF FEVA pwa” YA py o2 INOXTINTOCN 
DIF FEVA +1 py gr VA +1 e roc 
LOS INOX 
PYTHI===I1NTOCN 
STA INDO 
Iw ዕርር ”፦ 
PROORINRAO* INOX/ IND O=INXPI=INTOCN 
PROOBINRAO" INDY/ INO DZINYPISINTOCN 
oer [NTOC* 
SUNM=INYP=I NOY!-INT OCL“ 
SUMMEINXP=INXPIZINOXI=INTOCL 4 
MEN ,., INTOC# 
INTOCL as 
DIFFRINYP-INYPI=INYP=INTOCS 
DIF FEINXP-INXPLZINX P> INTOC# 
MEN „M „ INTOC* 
JPO  INTOC?* 
**INTERSECT ION OF ያ LINES 
INTOL* »'sTE  INTOLX 
STA  INTLINES **LINES IN QUESTION 
RSE tye ^ 
IN#BLSP, [No 
IN#BLEP , ING 
TWI NNORMEVA ya” VA ¡y g=INDX 1, [NOY I 


"RSX twe INTLINES 


VK IZDE ⁵˙¹ T 


V% BLSP INe 


ያዘ BLEP,ING 


— 


TWI NNORMEVA | o ደ አ g=INODX2, INOY ? 
RSX rue INTLINES E 
IN#BLSP, [NO k 
INTOLI>PRODEI NOX" [NDY 1 3 INX?Y4 | 
PRODEINOX1* INOY 2=ZINXI1Y2 | 
MOLF,.INX?Y! “INDENOM | 
PROODPRINX?Y! "VA No I NXP 
PROOEINXIY2 #VA NS 
MOLF,INXP-INXP 


HOL FIVA* 1 y ¿a VASI, a 


(ova E 


ni 


INTOL?-MUL  INOX! 


MUL INOX 2 


Sun 


ADO INXP 
*JOV  INTOLX**NO POINT a 
% 4 

sca (-*#..,) 
OIV I NOENOM 
#JOY  INTOLX 
STA INXP 


EN TOL) 7PROOBINX?YI VASI yp TINY P 


PROOSINX!YS"VAe e = 


ACA 


HHL 
HOIF,INYP=INYP 


MDI FIVA ya. YA jwa 


IN TOL < *MUL INOY! 
MUL INOY?* 


a00 INYP 


ፅ/ዕሃ INTOLX 


“. pa A 


sc8 (-».,) 


DI * INDENOM 


»J0V INTOLX 


374 INYP 
374 8 
LOA INXP 


INTOLX JPO e 


er - JPG 277740 
ርር- 720 200000 
gre JPe 2100001 


1437 22143 7 


Eger h ad 


x SERVICE CERO Joa llos 


ቄው መመመ መመመመ መመ> 637 


LMH Y SHT 0 01 


wABVAL 
*ACTANGz 203518 
ACTEX=202524 


ACTE 92202504 


ACTNI 2202444 
| ACTN2 2202453 
d ACTNI=?02€77 
ACTPI=z202445 
| ac re: 2202454 
ACTP3z2202«€€ 
#ACTSUM=203520 


*ACTTTz20351?7 


| 


SACTTS=205521 
*ACTXz203$514 
*ACTY=203515 
ARCTAN 
BADOY 
8SFAC 
CACT 220 2423 
CL=200000 
CLEAN=2001 40 
CMAG=200430 
CMAGI=200453 
CMAG 22200475 
CMAGZA=200504 
CMAG28=200520 
CMAGS=200526 
CMALLON=201 205 
CMANG=200026 
CMANGLE 52201454 
CMCEN 
CMDAD=201 172 
*CMDAL=203535 
CMO IRS=201 432 
CMORAW=20 1231 
CMORANS=2?01 420 
CMORAWA=201 425 
CMORANI =201 265 
CMORAW2 2201175 
CMORAWI 2201303 
CMD RAMa 2201310 
CMEDGE 52201 443 
CMEXIT=201277 
CMFAC=1 7777? 
CNGNL 2200546 
CMGNLI 22003 ?4 
CMGNL 3 2200734 
CMGNL LE Xa 200722 


CMGNLIAT?006416 


mLDAE T. 
LMAG=201 465 
LMAGEX [T=202 340 
LMAGI=201734 
LMAG?=201728 
LMAG12201504 
LMAGIE 2201 636 
LMAGIA=201 547 
LMAG18=201 573 
LMAGIC=201 607 
LMAGIN=201 615 
LMAGIF 2201 662 
LMAG16 2201 676 
LMAGIP z201 704 
LMAG 422041742 
LMAG 52201764 
LMAGSA=202018 
LMAGSB=202051 
LMAGSC=202071 
LMAGSCA=20 2052 
LMAGSCB=20 2122 
LMAGSCC=20 2130 

*LMCNT=2035 60 

#LMDENOM=20 3547 
LMORAW=202 240 
LMORAWIZ20 2246 
LMDRAWIAZ20226$ 
LMORAWIB=? 02544 
LMDRAWLOOP 2202113 

#LMOXz203542 

*LMDY=203543 
LMEND=12000 24 

#LMEXR=2035 54 

*LMEYR=203555 
LMINC 

*LMKCR=20385 57 
LMKEY=202200 
LMKEYEX=20 2216 
LMKEY 1 2202217 
LMKEY2 22022243 
LMKEYT=202 232 
LMKEY 52202225 
LMNAME 2200050 

#LMSEND 2203545 

#LMSKEY 22035851 
LMSLR=2021 35 
LMSLRXz202177 

*LMSLz20155€4 


*LMSSTz2038«4«4 


PLOTB&.LOCK$713011€ 


PLOTSTORAGE 2200137 


PLOTC IRCLE 2203218 


PLOTL INEz7030 57 
terte e 
PLOV12201J711 
PLOV2 2203213 

PLP 
PLPEND=203014 
PLP 10 S=202772 
PLP IT 252030 44 
PLPIT 32203083 
PLP IT 220302? 
PLPK 

PLPLBUSY 
PLPLOTIMP=200131 
PLPLOT=202637 
PLPLS SAVE 2203324 


PLPLX=202641 


PLPLR TNE 2202754 
PLPLI 2202756 
PLPL? 2202757 d 

PLPLS 22027171 | 


PLPL4 2203000 


PLPLRF12203360 
PLPLRF=203335 
PLPPB [720 3046 
PLPP=203347 

PLP SW 
PLPSTOP=203004 
PLPUBUSY 
PLPUNCHIMP=2001 34 
PLPUNCH=2020634 
PLPUX=202034 
PLPURTNE=202654 
PLPUL=+02660 
PLPUL2=202673 
PLPUL 3720770? 
PLPUL 42202703 
PLPUL5=202712 
PLPUL 622042738 
PLPWA 2205317 
PLREOFIL=+01003 
PLS 


PL SUBK 2203128 


PLSUB 22032605 
PLSW2 203312 
PLTABLE 


PLTABLELENGTH 


a nos መመ መመ መመ መወ o 


CMONLIB=200 622 
CMGNLID 2200 723 
CMGNLIBAz20083E 
CMGNLIBB=700656 
CMGNLICA=200872 
CNONLIC=200663 
CHONLIE 3200678 
CMGNLI 2201012 
CMGNL?Az2007$7 
CMGNL41Az2010235 
CMGNL«-z20107$ 
CMGNL«Xz701041 
CMGNL«Az201077 
CMGNL«*AXz2010417 
CMGNL«Bz?201031 
CMGNL«Cz?01044 
CMGNL 4D 2201048 
CMGNL #E 2204080 
CNGNL 52201063 
CMGNL #32011416 
CMGNLEAz201147 
CMGNL #52201164 
CMGONLER=201146 
CMONLERX=20 1163 
CMGNLE SE 270 1204 
CMGNLEX=201 203 
CMGNLESA=2011 ፆያ 
CMGNL«SBz201177 
CHLOOP1 2201361 
CMLOOP=2013581 
CMLOOPS=201 355 
CMMASK 
CMM INRAD 
CMM INSTEP 
*CMMID=201534 
*CMMRCEN=203523 
CMNAME 
CMNAME 1 =1 171708 
#CMNUM [2203534 
#CMNUMS=203517 
*CMNUMDONE 7203540 
CMOFF SET z4 77773 
CMPTO 21 77774 
CMP Ta 2a 77778 
CMRAD 2200027 
CHSCSZ=200573 
CMSETUP 2201341 
ር።55ር5ያ 
CMSTART 


*CMSTOPA=201528 


LMH Y 3H T son 
LMSTART=200022 
*LMTS=203544 
*LMTT=203550 
*LMXSR=203532 
*LMYSR=2035 55 
"MOVE 
NO ISP=200031 
"NE ARCR 
"NORMAL L ZE 
«OR VAL 
PB IK 
PBIK«4 
PBIKS 
PB IK“ 
PBITABLE-7?013J4? 
PB ITABLE 12203345 
PI 
PLIZ2OJOK? 
PLIA=2031014 
PLIPSW 
PLITSW 
PLaz303116 
PL2À-z203123 
PLC: 2205222 
PLC2=z203247 
PLCAK! 
PLCAK? 
PLCAKI 
PLCAK4 
PLCALCBLKS 2203234 
PLCANGNEG=?0 5232 
PLCAK=203351 
PLCB2=203234 
PLCBS=2032 72 
PLCB«Bz2013 301 
PLCBSA=203 300 
PLCB«z20117 70 
PLEB #22031 74 
PLCB72201303 
PLCENTRY 2205062 
PLCE 22103200 
PLCKI 
PLCK? 
PLCKS 
PLCK4 
PLCKS 
PLCK6 
PLCLEANJMP 3200130 
PLCLEANz 20 ? 41? 


PLCLX=2026 31 


w 


PLTABLEFULL 2203308 
PLTF2 22031307? 
PLTLYK=203323 

PLU 

P LUEND 22027143 
PLUS 
PLUSTOP=202737 
PLUMA 5203313 


PLUWA 1520 2314 


PLUF«£ 12201315 
LY 201 D 

PLE re i 

PLXS 2ያ፡778 


PMAGRO INT 


PMA ANE 


#PYTHI 
PYTHAGORIANz202325 
PYTHAGORIANEX=203 555 
PYTHAGOR [ANI2202854 
PYTHAGOR TANI 2202544 
PYTHAGOR [AN4 2202582 
PYTHAGORIANI1=101947 
ePYTS=z=?o 1535643 
#PYTIT=20J564 
#PpPrTUY= 203565 
R INTERLACE 
*SIDISPLAY=203566 
Si INK 22025735 
*S1 INC 220356? 
SINULL=+003246 
SINULLI 2200347 


*SISTEPSz201J170 


Sia 
SCCEN 7700013 
e SCNORM 
SCRAMBLE=200344 
SCRAMX=200367 
SCRAM =200383 
SCRAMERz200357 
#SCRAMN2201571 
SCSZ= 200374 


sce 


wiy 


#CMSTAz203533 
#CMSTEPSz203541 
*CNTS=203525 
*CMTT=203531 
„Crosets 
#CMTV=2?01532 
*CMTW=203827 
*CMXRCEN=203522 
ACMYRCEN=203524 
“ሥጋ.” 
c 
CONF 1652200165 
cse 
"DIFF 
»DIRECI 
"DIREC 


DISPLAY FILE 


OISPLAYFILESIZE 


#DUALNORM 


ERROR STOP 


» ERROR 
"ERROR 
"EXAMINE 
«FAGVAL 
FRESH START 

"FULL 

"FULL! 

»HOIF 

” H SUN 
Iroz200020 
laz200004 
INTERLACE 

w J ZA 

LACE 
14872201121 


"LDAB 


LMH Y 3H T ፀፀ፣7 
PLCONT=2031J0 
PLCONT2=20 3136 
PLCRATIO 
PLCSW 
PLCWA=2033 30 
PLCWA2 203322 
PLCX=20330 2 
PLEADER 
PLEENTRY=203155 
PLENDJMP=200133 
PLEND=202442 
PLESW 
PLFC 
PLFCK=203134 
PLFLK=2033526 
PL IE SC IRCLE 2201347 

#PLIESTSz20 39062 

PL INTSTART 2200135 

PL INTSTART2 2203045 

PL I0 SB IT S3 203323 
2341 

PLITK 

PLITWA=203084 

PLLAST=203 3042 

PLLKI 

PLLK? 

PLLKI 

PLLK 4 

PLLKS 

PLLK6 

PLLOWF ILTER 

PLLSW 

PLLX=203177? 

PLNF=203203 

PLNFENTRY= 203145 

PLNXT=2031 74 


PLOTIT 


scs 
SETUP #20014142 
SNO0ISP=20003+ 
50#0SEE 
59«፡፡4=ያ7ዐዐያዕፅዐ 
SQSoFEM=200313 
50400 z2002€6€ 
SQto[=2?00212 
SQ6é0|A=2?00214 
SQEoIR=2002350 
8001S 
8060186320077 
5060102200276 
SQto[RR=20023] 
$0400 17212001710 
8060p 12700303 
800072200272 
SOtO0FEWX=2>00324 
SORT 
SQUARE ROOT Br HPP=20 
87220000 / 
«STAB 
«STAE -። መመ 
STARTS 
STOPIFFULL 
~” SUNN 
"Tri 
TRACK 
TRBUSY 
TWINK LE 
UNITS=200144 
UNITS X=2001 77? 
UNITS OFF =200450 
UNITS OFFi1=:00184 
UNITS OFF2z200157 
*ZZLAST=203572 
. 


Ger 


222 .. yon lo mo E ጽነ 
ጋፊ Lo 125 
LMH Y H T „ „ Z 3 


ARCTANz#JPO CACT 2540500202423 


H 
` 


8 SFAC | 
z 100100 ነ 


oroo 


LU 
- 
o 


BADOY 


2301200101441 YA 


CHSSC SZ: 174000 E 114000 
CMSTART 2000722 H 200022 | 
z 200024 


" 


100000000 


CNMINSTEP z 0 z D 
CMNAME= 200030 z 200030 
ሮዘወ= 32 B 12 
c * 33 z 33 
CMMASK= 1 7722 z ያያያያያያ 
DISPLAY FILE= ¿00000 z 100000 
DISPLAYFILESIZE= 1rrooo-0 ISPLAY FILE z 77000 


ERROR STOP =SKM 4.10 2721 1712377730 


FRESH START: 200007 H 200002 


INTERLACE ZSKN 4.10 37 7720 1712377724 


10 


= ያያያዖያያያ/ 


P I3 ያ”/ያ7ወ77,,7ያያ/ፀ ያ»»ዎያ/ሪ# 2511037173103 


z re 


7252033412 


። 
- 


PLESVzSKM ,,s PLSW 


477700 


727203312 


H 
- 


PLCSW=SKM „ „ PLSW 
11203312 


" 
- 


PLIPSW-SKM ,,3 PLSW 
721203312 


ካ 
- 


PLUSW=SKM ,., PLSW 
712200132 


- 


P LPUBUSYz SEN 4.10 PLP UNCH JMP z 


PLLSV-SKM ,,g PLSW z 2726203312? 


PLU= „ z “ 
PLEADER=( TAM PACK A DCK S 2 = 205364 
z 73 


1112100131 


" 
~ 


PLPLBUSY: SKM .io PLPLOTJ MP 
722203312? 


" 
- 


130203342 


" 
- 


PLLK17 10 0000 7729 * z se 
PLLK?= 100000/243 »-PLLKI z 112 
PLLK37 100000 „ „ „ „ -tPLLK1* PLLK?) z 4189 
PLLK“: 16 „%%% % % %%% -(ዎርርጀያቃ PLLK ? *PLLK 9! z 1481 
PLLK$7 „ „„ „ „ „ „ (PLLK1+PLLK2+PLLKI+PLLK? 

z «573 


10 0000 23.4 PLLK I1 ^PLLKZ* PLLK ያቃዎር LK4+ PLLK s) 


PLLK* 


* 141043 


LMH Y SHT oos 


PLCKI = PLLK1 *PLCRATIO 710 


2275 


4710 
ro 71 


* 


11 


3. 
. 


1777117717178 


LCAK 33 s sPLCAKI- «PLC AK1I* PLCAK2?! 


(PLCAKI+ PLCAK2+P LCAK 31 z ያያያያያያያያያያዖ።ፀ 


PLCLE AN JM P z 17212200130 


LELE NGTHF 200000 -PLT ABLE z 100 


= 161 


LFC= „* 1111173) 2ያያያያያያያያያያያዖ 


203365 


176090*-J0«/ ee) 


z se 
z 200022 


z 200039 


1,134 1711377724 


200005 


59፡፡5፻፻።፡ 200005 
START S= 200003 = 200003 


SQUARE ROOT BY HPP 2840500202341 


e 
° 
* 
Ki 
" 
> 
— 
v 
o 


«ያ 


“ 


H 


1712377737? 


" 


STOPIFFULL=SKM 4.10 3777328 
- 


H 1711377724 


TWINKLESSKM 4.9 377720 


soo 114 


" 


TRACK z PLENDJMP+1 * 
2712200134 


TREUSY=SKM 4.,o PLENO JMP* I 


- z 4 


265 


LMH Y SHT eot 


ses DEF EXAMINE e= B 
«»705.* 
sre 8 


se END 


ee DEF NORMAL IZE| P-C/S=+F=ZR=-Q 
LOA P Se POINT P AT 

SUB C ** CENTER C TO BE 

SAB (-«F).) **NORMALIZEO TO 2" as 
sjov 0 ** AND IF OUT, GO TO 

Otv 5 **Q. ANO LEAVE RESULT 

sjov 9-(5፤፥(5) ** IN ያ 

STAR 


ké END 


we DEF MOVEIA-B 
#LOE A 


STE 8 


ee EMO 


es DEF ABVALIP=0 
LOA P 

4JPA ar? 

Icom å 

Zi JPA æ+: 

?! CON å 


sra 0 


se END 


se DEF DUALNORMIP=0,R=+>S=T 


LOA P 
sus 9 
NOA (e) 
STA 8 
2? STD B 
LOA R 
sus s 
NOA fo) 
20 d d Fr 
ae bue o 


HD ፤ያ/ዎ, ፀ-ያ 


mw DEF 


NGA 


LMH Y SHT ec? 


JZAIP 


se DEF 


JPA er? 


INA #02 
JPO P 


es EMO 


NE ARCR | P-0,R-S3T 


ro DEF 


LOB ds» .,.r,,3 7777?) 


P 


LOA 


sue 9 


NOA (e) 
JPA er? 
Zi com B 
LOA R 
sue 5 
NDA (o) 
JPA er? 
"com B 

sre r 


es EMO 


we DEF ORVALIP-9 
LOA P 
1JPA ar? 
ICON å 

Pl JPA est 
2! COM A 
STA 8 

t? S06 å 
ti JPA #*ቀያ 
e? too. 8 
LOA 8 

STA 0 


se END 


se DEF SCNORMIP-=0=R=S 
Ti sg 
NORMAL IZE|P+SCCEN+ T1/SCSZ= R= 5 


ww END 


er DEF DIFFSP=QzR=S 
LOA P 


sye 0 


— 


asov 5 


LMH Y H T 


STA R 


ss EMO 


we DEF FABVAL ZP») 
LOA P 


JPA rèt 


ee DEF #ጀለ።ፀክ።ር።ዐ።ጀ።ያ።ርቴ።”። |,። 


RE X,* (04) 

RSX,*(LIST* IS b) * t FA (370,1! 
RSKJ* (LISTeHa ) * (H^ (370 , b3 
RSX,*(LIST*GQ ) * (ርዶ (370,0) 
RS 1% (LIST*+Fa)* FA (370,2) 
RSX (LIST +Eg) * E^ (370,1) 
RS Kg (IIS To) DA (370,91 
RSX,*(LISTeC, ) ሟሐ፣ርሖ (170,1! 
R$SXí,*(LIST*B, )* (B^ (370,0? 
RSX (LISTA) + CA^ (370,0) 


ve EMO 


ee DEF Pr THEP-G@5T-U 
PY THIS P-Q@, Prti» Qe iz T< U 


se ENO 


ee DEF OIREC1EP-@,R-S-T-U 
LOA R 

sue 5 

830v U-1S) +15) 

STA Be (Ri - (R) 

LOA P 


sus 9 


#JOV U- 10) +10) 


JPO CACT 


we DEF DIRECSP=0=T-U 


OIREC: ዘጦ=9 Pèt መወቀያ =T-U 


se EMO 


ve QEF HSUMEP, G-R 


LOA P 


ADO 9 


sr hard pt) «Q^ erre 


ih 


LMH Y 3H T o 14 DF 


er DEF SUMMEP=0=R=S 


er DEF PROOFA"B/C =0-E 
LOA A 
NUL 6 
piv C 
510v E 
sra 0 


ee EMO 


wee DEF LOAEFA,8,C ,0D 
LOA 4 
LOB 4*8 


LOC 4 C 


we DEF STAEZA,B,C,O 


ses DEF ST AB ZP 
STA P 
STB P. 1 


se EMO 


ee DEF PYTHIFP=0, R=S=T-U 
LOA R 

sub S 

sjov U-tS) + S) 
STA B-1R)+* IR? 
LOA P 

subs 0 

sjov U- 10) +10) 
sip@ PYTHAGOR I AN 
JOY U 

STA T 


ss END 


ee DEF FULLEG-P 
1 
jpo (FULL 1 E0-P) 


se EMO 


we DEF FULLIZe.P 
ISTE es? 


SK Z STOPIFFULL 


ee DEF LOABEA 
LOA A 
LOB A+! 


ww END 


ee DEF ERRORES =P 
„„ ee (ERRORIEG-P) 


se END 


we DEF ERRORI ፡።”-ፆ 
ISTE 292 


SK Z ERRORS TOP 


jiu 


- 
ማሳው A APR RAKA ab 


A 


LNH 


Y SHT 


s. JES PLOTTER SERVICE PROGR AM 


**LMH ONIOFF LINE PLOTTER 


«ep LOT 


CNMASKI 
CMOFFSET- 
CMPTO- e 
CMPT1- D 
CMNAME Is 
CMFAC- ° 

200000} 


ct JPG 


87 — JPG 


sesoeotti 


JMP 


»JMP 


sooo. ri 


Ize- 2 41 


KINP 


LM START> 


LMEND- ° 


CM ANC e 


CMRAD- ° 


LMNAME = 0 


ND [SP= ° 


SNOISP= 6 


zeeseisl 


sc CEN- ° 


zasisol 


PLCLEAN IMP ^ 


ANE 


sit- t 


CLEAN "a 


SQUARE ROOT BY HPP 


NEW PICTURE 


** SAME 


** START 


P YTHAGORIAN 


CACT 


P MAG 


POINTS 


lrrreoo 
e 
6 


loooooo 


foo0000 


j: sosoo 


PICTURE % 


SCOPE MERE 


ji sosoo 


120% 


fa00s00 


** TO ARC TANGENT 


178% 


208 


LNAG se TO MAGNIFY LINES 


12800 


CNA «se TO MAGNIFY CIRCLES 


**END OF 


+. OR CIRCLE CENTER 


** ANDLE 


e» gADIUS OF CIRCLE 


** WHERE 


L INE 


TO ORAW 


TO PUT 


se s0F POINTS 


„„ $052 


PLCLE AN 


f400500 


foooooo 
Joooooo 
e 


e 


rrraco| 


% 
9% %% 


000002 | 


772 


r3 


a 


713 


4 


rrr 


200140 (200009 


200143] 


200200 | 


2023241] 


202525| 


eet 


eer 


zoz423|200019 


20072 


Seit 


201445/|200020 


20 | 


000000 | 
000000 | 
000000 | 


%% %% 


CIRCLE THRU 


foovoo 0 


coocoo | 


ez! 


LEE 


e, 


orde 


0235 


°x“ 


ez 


foooooo 6ሀዐዐዐዐ |zoooso 


NEW POINTS 


IN DISPLAY 


e 
feooooo 


e 


IN DISPLAY 


% 


96 %%% 


9 | 


ossi 


es? 


oje 


ess 


ese 


** CLEAN PLOTTER PROGRAM 


favasoo zergzzlzoeeize 


PLPLOT JMP- 


sIJMP PLPLOT?# PLOT DATA 


PLPUNCH JMP ~ 


ደራ 


ee PUNCH DATA 


àa4JMP PLPUNCH 
fa003500 
PLENDJMP- 
„ %% e PLENO **END OF DATA |evosoo 
sep LEND JMP+ ! = #JMP TRACK 
PLENO JMP+ ? | 
PLINTSTART- 
SIMP PLINTSTART? f+00500 
PLOTBLOCKS- 
e ee TOTAL, ,ANT TO GO % 
PLOTSTORAGE- 
e ee,,TOTAL fo 00000 
2090140] 
cLEAN- e e UNITS %% 
spo FRESH START fji sosoo 
SE TUP= »JPQ UNITS % 
JPG STARTS f1 sosoo 
un ITS= "STE | UNITSX fo 11000 
NKZ PLOTIT Je 21712 
nove C20 48 0, 70,40 s; C NN ASK 
„lo ee (-o,400,.,-89,40 9) fa02000 
STE  CMMASK [eo soo 
UN ITS OFF- 
(5040 [10127 
REX „ 30 foo125 4 
MOVEI (CT 108 r7 29000 ) UNITS OFF! 
„dos (' IOS pr 20000) |eozooo 
STE UNITS OFFI joosooo 
MovEI( los 77 90000 Jeun ITS OFF? 
Kot (A208. pp eee! % 
STE UNITS OFF? foosoco 
UN ITS oO 
e fooooo 0 
UN ITS OFF?- 
e eo 
2RSK „ UNITS OFF! |ezis23 
BEN ig) d 1 1213 
20PX å UNITS OFF! Joz1638 
20PX y UNITS OFF? ሠ፡፡።ገ፡ 
sf AER y UNITS OFF! 72 
CONFIG 5- 
spa ( r66,3242,,349,9) e 
SPG ( e10, 763, , 162 , 701) fo «229 
!|sPG ( rao,raz,,140,411) Iess 
243506. ( s... 08. $ 9,1081) |; 92 
?ያወዋ5ፆር ( ያያያ,ያያያ,,ያያፀ,ያዐፀን ”””። 
24sPG ( 608,731 ,,730,F332) [242200 


202417| 131 
202634| 132 
107047 | 133 
zoso«s| 138 
oooooo | 136 
coooooo| 13? 


z00144|7200140 


200002] 141 
7200 142 
200003] 143 
200177| 144 
zeeiiel 145 
20 5164] 144 
VRAZAZA | 1.2 


200151 [200150 


ooooss] 181 
205367] 182 
200136] 133 
203170| 154 
200137] 155 
e 158 
vovovo| 157 


200156 [200160 


s0000: | 181 
200156] 168 
200187] 165 
200156] 184 
201371] 148 
203172| 184 
203371] 167 


203174|200175 
203375| iri 


203374] 


oo”... Ge de ma a መሙ መ'- ap - DD db gn መመመ መመ 


LMH Y3HT o 13 


sespe ( 0,670 ,,735 e 4400) [301100 201177] 


Sespp ( 60፡,777,,7ዐህ,ያያደ› 342200 265400 ES 


P 


REX „ SCRAMBLE |eos261 %% 


RXF go 8% 4 fios200 ro0r00t 


UN ITSX- JPG œ ji % 200177] 


LMH Y SHT o 01 
s „  CSO,, 
110S go 10010 
RSX sya SNO ISP 
SXG sie 9 
JP SI NULL 
SXL 5፡79 39 
JPO er? 
JPG 89 2 EN 
SKN INTERLACE 
JPG 859 0 "S DIRECT 
s „%%t- "'JPX sie SOBOTA 
IPO SososeE 
so „ JPX gpt? 
REX sia LACE-1 
576 37% LACE 
REX sia LACE-4 
Sk 2 RINTERLACE 
JPO Soto IR 
DEX sie 1518 
JINX sie 39 „13 —7 
se % 18=>SXL sya 7"LACE ` 
JPO 80 1s 
3 IC=TSO 5,. DISPLAY FILE 
DEX e LACES 
e siu SOtolc a P 
JPX sia SOFOA 
JPA 59፡።#5፻፻ደ k 


59፡፡።#ያ75”።?5ዐ 
TSO 
rso 
rso 
rso 
rso 
TSO 
rso 
DEX 
SXL 
JPG 
JNX 
JP 
se s0 IR -DEX 
RXF 
IPO 


89 „ IRR- 


“IOS as 
ያ”5ዐ 


ፅርዐጀ 


sie DISPLAY 
sio OISPLAY 


Sie DISPLAY 


Sre DISPLAY 
sio DISPLAY 
sio DISPLAY 
sue DISPLAY 
Sre DISPLAY 
Sle ter LACE 
5፡9 ?"LACE 
soso [Ss 

sio 59፡፡9(5-ያ 
søselc 

5፡9 * ** RA 


es 59፡፡ IRR 


s@#o IB 


Joo oo 
SCRAM X 


SCRAM X 


FIL E-to *LACE?! 
FIL E-ti sLACE) 
FIL E-t#r+LAC ES 
FILE-13*LACE) 
FILE-t*«»LACE? 
FILE-1S.LACE, 
FILE-16*LACE) 


FIL E-t?"LACE) 


NDOM DECREASE 


BITE ( LACE -1v (i LACE -1721 v ILACE- 1 74) VIiLACE -1 44 


ድ5፡ 


sce E 


e) VILACE-1 /20) ) 


aa. AAA Wa . A W Aaaa, 


SR 
JPG 
sxo 
REX 


top 


se %o jop 


s „%% TSO 


59፡፡ሀዐ0ያ7->ይ5ጽር 


59፡።፡ዐያ”።>5፡ር 


D 


so „ * 


5@#oFE WX- 


SI NULL-REX 

Si NULL ir 
MOV 
MOV 
MO Y 
RSX 
RSX 
RSX 
rso 


Lao 


LM H Y ART ° 


sce LACE 


SQeo IRR: 1 


sce * 

sc 

X sce $040 IR 
SCRANBLE 


X sre Sé #003 


sro DISPLAY FILE 


sia DISPLAY FILE*! 


sre DISPLAY FILE+2 


sie OLSPLAY FILESI 
gre DISPLAY FILES? 
saw DISPLAY FILE*S 


sie DISPLAY FILE+€ 


sie DISPLAY FILE+? 


e" se N-7 
501003 
80 0 


Sre DISPLAY FILE 


SQeoFEMX 
Gro OISPLAY FILE 
sia DISPLAY FILE 


sio OISPLAY FILE 


Sre DISPLAY FILE 


sue DISPLAY FILE 


Sre DISPLAY FILE 
5፡9 DISPLAY FILE 
5፡9 DISPLAY FILE 


PX gya 8% HEN 
SQ«oSEE 


Sre ?? 


EIS!  ዘደ5/ወ>57ዐ/5 PLAY 

EIS! INK*!g,o “Sil NC 

S ISI INK* 2547515 TEPS 
sia SISTEPS 

si „ SITNC 

3:2 S!lNC? 
SIO0ISPLAY 


X 577 SIOISPLAY 


e? 


-~ 


ES die a geg 


LMH Y SHT 003 
TADX siz SIDISPLAY 
-4JPX 846273 
“IJPX 5,» SINULLI 
IPO. 580204 
SCRAMBLE- 
CSOs: 
110S 46, 30000 
RSX sce SNO ISP 
RSX sca SNO ISP 
JPQ SCRAMX 
SCRAM- T'JPX sca SCRAMER 
AUX sca SND ISP 
JPX sca SCRAMER 
JPO SCRAMBLE 
SCRAMER- 
SKN TW INKLE 
JPO SCRAMBLE 
#LDE sca DISPLAY FILE 
STE  SCRAMN 
ፅርዐ፪ sce DISPLAY FILE 
STE sca DISPLAY FILE 
#ALDE SCRAMN 
STE sce DISPLAY FILE 
SCRAMX=DEX sca ° 
rSD .-1 
^"! JPX sce SCRAN 
JPO SCRAMBLE 
CHSCSZ= 770., 
sc SZ- Ba 
PMAG- "STE  PMAGE IT 


MOVE (?0o0oos4=SCSZ 


SCNORM|PMAGPOINT+1= 1 =PMAGY-PNAGE X IT 


NOR MALI ZE IP MAGPO INT #SCCEN/SCSZ=PMAGEXIT 


"LOA PMAGY 
ITA CMMASK 
ADD | PMAGNAME 
RSX cmo NDI SP 


INX cmo 12 


SXL cue DISPLAYFILE SIZE 
ERR ORECMo-PMAGEXIT 
OPX cme NDI SP 
REX ርዘፀ ? 
DEX cma ! 
STA cme DISPLAY FILE 
"PX cm *t-? 
PMAGEX II: 
ipo # 


CM AG- ISTE CMEXIT 


MOVE ICMNAME =CNN AME / 


LOA 200034 


213 


መሙ on መመ መሙ መመ መመ መመ መመ U arenc nme 


i STA sc sz 
| MUL ( CNSSCSZ,,) 


STA CMSCSZ 


PYTHECMCEN= CHST ARTS CMRAD-BADOV 
ADO CMSCSZ **SCOPE SIZE FOR € IRCLES 
2 0 V BADOY **CIRCLE IS TO BIG 

CM AGI= DIF FSCMCEN= SCCENZCM XRCEN-CMEXIT 
FAB VAL- CMMR CEN ** IX CENTERI 
DIFFECMCEN* i>SC CEN? 1=CMYRCEN=CMEXIT 
FAB VAL CMTS 


sue CMMRCEN 


LOA CMTS 


STA CMMRCEN**MAX CENTER O IST 
CMAG?= LOA CMMRCEN 
SUB CMRAD **MAXCEN-R»SCSZT? 
JNA CMAGIA +1 ** CIRCLE TOO SMALL 
STA CMTS 
sub CMSCSZ 
INA CMAG?AÀ 
JPO CMEXIT 
CHAGIA=LDA CMTS **MAXCEN-R«-1*5 SC SZ 
ርዐፀ CNMRCEN 


sce (-1.,) 


I 

| 

| 

| 400 ፀ 

| Jov CMAG:8 

| ros CMSCSZ 

| sce (-1,) 
app 8 

| Jov CMEXIT 
App  CMSCSZ 


| #ዕሃ CMEXIT 


| JNA CMEXIT 
CMAGIB=LOA CNNRCEN 
ADO CMRAD 
J0v CMAGS 
sus CMSCSZ 
JPA CMAGI 
ያያ CMALLON 
CMAG3- LDA ( CMMINRAD) ** [S RAD TINY? 
MUL sce sz 
SUB CMRAD 


JPA CMOAD 


LOA CMANG ** JS ANGLE TINY? 


JPA ara 
INA ያፉያ 
JPG CMDAD 
COM A 


STA CNSTOPA 


MUL CMRAD ** ARCLENGTH/2TH 


2 


LMH Y SKT een i NG 
STA CMTS ጋ 
LOA ( CMMINSTEP) $ 
muL SCSZ l 
SUB CNTS Ei 
JPA CNDAO Å 
CMGNL= REX ረዘ» ° ** FIND EDGE POINTS 
LOA CMXRCEN E: 
sus  CNSCSZ **DIST TO RT EDGE 
JOY .. 3 
REX cms ° , 
„ee CNGNLI ES 
LOA CMYRCEN 
SUB CMSCSZ ** DIST TO TOP 
JOv eet | 
REX cwa ? | 
4JP 0 CMGNL 1 | 
LOA CMXRCEN | : 
ADO CMSCSZ **DIST TO LEFT EDGE * 
JOV .. 3 3! 
REX cmo ' SC Ah 
„ e % CMGNL! LZ 
LOA CMYRCEN | 
ADO CMSCSZ **0IST TO BOT E: 
JON „„ 3 
REX cms 3 
| „eo CMGNL! | 
JPO CMGNL2 
CMGNLI-"STE CMGNLIEX | 
STA CMTM ee CEN IN OR OUT? f 3 
f D 
FABVAL- B í 
SUB  CMRAD se (ጀ-ጽ) ።(ጀፉጽ) OG 
JPA CMGNLIEX > 
JNA rès 
o n CMTS 
JPO CMGNLIA 
EXA 8 ^ 
App  CMRAD 
sca (-1,) 
MUL B S 
ፓኑ 
SAB ( 1.) £i 
SORT ah 
STA. CUTE **oFFSET Şi 
DPX cua CMTU ; 
(5555. 
CMGNL1 A~ | 
| LOB CMYRCEN 
| SKZ ,. „ CMTU 
LOB CMXRCEN 
| App 8 
| cmGNLIB- 
| 


sov CMGNL10O 


LMH Y SHT eot 


STA CMTT ** VARIABLE PART 


FAB VAL 


SUB  CNSCSZ 
JPA CMGNLID 

LDA  CMTT 

“fi pe A 

5፡8 (-3-,) 

olv SCSZ 


aJO V BADOV **SCSZ CHANGED 
STA CNTT 


CMGNLI BA- 


LOA CNTS „ FINO IF ENT OR EXIT | 
*ዐፆጽ CNTT ለ — 

LOB CMANG 

SKD SR e = 

com a | 
5«7 1.2 CMTU T 

COM 4 n 
SKZ ,., CMTU pr 
COM 4 d 


JPA  CMGNLIBB 
MEN „ „ CMTT** ITS AN EXIT SC 


JNA CMGNLI BB 


MKN ,.ያ CRT H set 
MOVE ICMTT=CMTY 


JPG CMGNLICA 


CMGNL188- 
SZN ,.7 CMTU**FIRST OR SECOND PASS? 


! 


JPO CMGNLIC 


STA CNTY ** FIRST NUM 
JPG CMGNL10O 
| 
CMGNLI C= 
MEN „5 e CMTU**GOT 2 
LOA CNTV 


*!suB CMTT 


21324 CMGNLIE 
T!JNA CMGNLIE 


MKZ ,., CMTU** TWO ARE SAME, DELETE ONE 


MEN ,., CMTVOT MARK AS EXIT 


dg 


E 


CMGNLI Cà- 
LOA CMTMW se CENTER-SCOPE EDGE 


„ CHU 


COM A 


JNA CMGNL? EX ** CENTER WAS INSIOE 


CMGNL1E- 
LOA CMTT 
tos CMTVY 


“LOA ( CMSSCSZ) 


SKZ ,., curu 


CMONLIE 


CMGNLI OD 


CMGNL? — 


C 


rep 


sue 


sue 


JOY 


STA 


FAB V 


SUB 


- 


LMH Y H 7 


ca: LENTO 


e 8 
cM» CMEDGES 


CMe CNEDGEStI 


CMTT 
cue CMDIRS+1 
CMTV 
Che CHOIRS 


CMTU 


CMTU 


GNLI E 


TS 

GNL14A 

e "Choz 
ALLON 


STAR T** IS START 


scsz 
GNL3 
STAR T+1 
SCCEN+ I 
CMGNLI 
CMTT 
AL 
CMSCSZ 


CN 


e) 
sz 


CMEOGES 


A A 


sz 


e? 


EDGE PTS 


ON 


LMM Y SHT 


STA CMTT 


INX cma * 
DIRECI #CMTS-CMXRCEN ¿CMT T=CM YRCEN=CMN ANGLE Scme” 


BADOV 


DER p|CMe CMOIRS 

INX cmo ' 

IPO CMGNLIA 
CMONLI=DIRECECMSTART=CMCEN =CMSTA-8A00V 
CMGNL1 A= 

STA CMSTA 

OPX cmo CMNUMI 
CMGNL«-RSX cua CMNUMI 

JPG CMGNLAX 


CMGONL # A= 


REX cma |ረ።። 


JPO CMGNL4AX 
CMGNLAB- 

LOA cma CMEDGES 

% CNMe CHEOGES 

20 PA CMGNLAAX 

29 INA CMGNL4AX 

MEN 7.1 (che CMO IRS 

BLODE cuo CMDIRS 

SSED cma CMOIRS 

JPO |CMGNL«AX gp ሠሪ - 


MEN 7.1 ce, SMO IRS 


ji) 


CMGNL*«AX- — 


7"! JPX cus CNGNLB 


CMGNL«X- 
ex cua CMONL SA 
CNGNL«4AC> 
REX cmo ? 
REX cwa * 


CMGNL4D> 


SXL c. *CHNUMI 


JPO CNGNL4E 


LOA CMEDGE Sewa 
LOB cma CND IRS 
STA cma CMEDGES 
STB coms CMO IRS 


INX cmo ! 


INX cmo ! se ONLY IF NOT REJECT 


IPO CNGNL«4D 


CMGNLAE- 
DPX cma CMNUNI 
er cn: 
JPQ CMEXIT 
ecmonis-**LOA CHI CMEDGES ** COMPUTE ANGLES 
MUL scsz 
| sao € 295.1] 
| STA curs 
| HILDA cua CMEDGES 
MUL sc SZ 
SAB ( 1...) 
STA cr 
DIREC! #CMTS-CMXRCEN CMT T=CMYRCE N=BADOV 
| 5ሀ8 CM STA 


LOS CM ANG 


| com A 
| JPA #ቃ*#ያ 
INA 2% 2 
oP x A 
opx 8 


cae (-1.) 
STA cma CHANGLES 


er cua CMGNLS 


CMGNLE=REX cusa ° 


4 


CMGNLEA 
»,PO CMGNLES 
SKEN. aos CNTT 
JPO CMORAW 
»JPQ  CMGNL SR ** REMOVE ENTRY 
SKA ደ...) € 
JPG CMGNL6A** [T WAS AN EXIT 


STA CMTU ** START ANCLE 


STB cua CMORAMS 


RSX cmo CMTT 


SKZ ,., ¡cmo CMD IRS 


d sIPO CMGNL ER 


SUB CMTU 


IN Å BADOV ** ANGLES NOT IN ORDER 


JPA 0.) 


oP x A 


LDA 
EXA 
EXX 
CMGNLER X= 
JPO 
CM t S- 
967 
LDA 
STA 
DPX 
RSX 
JP 
CMGNLE SA- 
LOA 
SUB 
JPA 
JNA 
JP 
CM GNLS SB- 
ADD 
STA 
"op 
MKN 
CMGNLE R 
ang 
CMGNLE SE: 
JPO 
CMALLON= 
SCN 
SCN 
LOA 


JPA 


CMe CNNUMI 


CMa CMANGLE S 
CMTS 
CMGNLEX 
CMGNL SB 


«9 BADOV ** ANGLES ARE SAME 


CMTS **BETTER 


PX cma CNONLESA 


ORM | CMSTART=CMOR AWS- CMEX IT 


ORMICMSTART*  =/2ያ7ያ7 CMORAWS-CMEXIT 


CMANG 


CMORAV A 


| 
| 


CMORAW=NORMAL I ZE ICMRAD/SCS ZYBSFAC=CMRAD=CMDAL 


CMORAM 7 


CNDRAW 2 


CMEXIT- 


CMORAM I 


CMDRAM + 


PL IESC I 


REX 


NOR 


NOR 


SXG 


JPG 


ርዐ8 


D 


LOA 


Loc 


cms ? 3 


NAL IZEIC MCEN-SCC EN/SCSZ» BSFAC #CHMID=BADO V 


MALIZEICMCEN* 19S CCEN* 1 $CSZ» BSFACz?" CMM ID 


-8 ADOV 
che * 
CMEXIT **DONE 
cms CMNUMS 
(-a,,4) 
(-e..e) 
ElCMRA0- *" CMRAD 


Iv CMRAD 


CMFAC 
UL | CMNIO 
AB ( BSFAC,0,.BSFAC, e) 
TA CMOFFSET 


CMNUMDONE 


CMN UNDONE ** HERE ON SEVERAL 


CN 
CMo *CMN UMS se TINE S 
e ** DONE z 


cHe CMORAWA 


Che ! 


cme CMNUNDONE 


( PI) 
UL CMRAD** STEP S=RE VS=P ፲/ሪ። #ፀ።ጽለዐ 
8 ( BSFAC-5= 14000 ) 
x A 


CMSTEPS 


CMa CNDRANS-I 
CMPTO 

UL CMFAC** Y,.X 

po CMOFFSET 

CA (-1,0,.-2.0) 


Do CNPTO 


PLOTIT 
CM SETUP 

MAL I ZE IC MCEN>SCC EN/SCSZ=PLIESTS 

MAL IZEICMCEN+1=SCCEN+1/SCSZ2=** PLIESTS 
PL IESTS 

Cha CNDRAWS-1I 


Che CMÜRAMA-! 


COM c 


aJP Q PLOTC IRCLE 


JPG CMORAM + 
CM SETUP- 
RSX cme CMSTEPS 
AUX cmo NDISP 
SEL cmo DISPLAYFILE SIZE 
FULLSECMe-CMEXIT 
INX cue DISPLAY FILE 
'DPX cue CMLOOP I 
RSX cme CMSTEPS 
IREX ረዘቨ።(ረዞ።። 
CMLOOP-LDA | CMPT! -*Y,X 
12 UL CMFAC 
cut S- 
** 00 CMOFFSET Seat, 8X 
2400 CMPTO**X,Y 
IPE XA CNPT1 
EXA CMPTO 
ITA CMMASK 


ADO CMNAME 1 


cu tt 1= 
STA Cha 2 
LOA CMPTI Ea Y v 
20m UL CMFAC 
*! JNX cme CHLOOPS 
RSX cya NOISP 
AUX cya CMSTEPS 
INX cMa ! 
DPX cya ND ISP 
JPG CMORAW? 
CMDAD- NOR MAL L ZE ICMSTART-S CCEN/SCS ZECN T $2C NEXIT 


NOR MAL I ZE I CMSTART+1 -SCCEN+1 /SC3Z:?? CMT S-CMEX 
IT 
RSX cue NDISP 


INX CHa 1 
SXL cue DISPLAYFILE SIZE 
FULLECMe-CMEXIT 

Loc CMNAME 


LOB (-0,400,.,-0,400) 


STC c. DISPLAY FILE-! 


OPX cme NOISP 


IPO CMEXIT 


CMORAM S~ 


CHORAW A~ 


CNDIRS- o 


CMEOGE S- 


CM ANGLE S- 


LMAG- 


LMAGI- 


e 
Ier 
LDA 
STA 
HO I 
HDI 
MUL 
NAB 
JPA 
JNA 
LDA 
JPA 
INA 


LOA 


LMH Y 3H T 018 


E LMAGE XIT 
100034 
5፡52 
FILMEND, LNSTART> LMDX 
FILMENO+ 1 , LM STAR T* 1 LMDY 
LMDX 
fe) 
LMAGS 
LNAG? 
LNOXx 
LMAGIE 


LMAGIE 


(or 


KY 


一 
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ሙመሙመሙመ መሙ ሙሙ መመ መሙ mm መሙ መመ መመ , hn 


LMH YIHT Sit 


JPA LMAGIA 


JNA LMAGIA 


SCNORM | LMSTART=LMSS T*LM AGEX IT 


SCNORMNILMSTART+ 14127? LMSST-LNAGEXIT 


SKN PLOT IT 
LOA LMSST 


2JP Q PLOTL INE 
JPQ LNAGEX IT 


RSX cya NOI SP 


SXL cmo DISPLAYFILE SIZE 

FUL LECM@-LMAGEXIT | 
| 

LDA LMSST | 


LOB (-0,400,,=-0,400) 


STC cme DISPLAY FILE-I 
DPX cma NDI SP | 
JPO | LMAGEX IT 

LM AGI AS SCNORM | LMSTART=LMSS T=LMAGEX IT 


STA LM SEND 


SCNORMILMSTART* 1912 ff LMSST-LMAGIB 
SCNORMILMEND+ 14122? LMSEND=LMAG IC 


JPG LMORAW 


LMAGIB=SCNORM ILMEND+1=1=?*? LMSENO- LMAG IN **$T OF 
F 
LDA LMOY **END ON START OFF 
LOB ( 3121727?) 
JNA .. ያ 
com 8 
‹5፲8 LNSST 
JP Q LMORAW 
LMAGIC=LOA LMDY ** ST ON END OFF 


os ( ያያዖያያዖን 


1587 8 LMSEND 
JPG —OLMORAN 
LM AGIN=HDIFISCCEN+ IL, LM STAR T* = LMTS ** BOTH OFF | 


HDIFISCCEN* 1, LMENODO? a y 


1578 LMSEND 


ano 1 5 


—— መመ ou መመወ መው መወ መወ መመ መመ ወወ መወ መው ee መመ ወመ መመ መወ መወ os a o YA 
LMH Y JH T our a 
à 


#ST8  LNSST 


JP LMORAW i 

1 

LMAGIE=SCNORMILNSTART+ 1212 ?? LMSSTSLMAGEXIT ^ 
22514  LMSEND li 

| 


SCNORMILMSTART="?" LMSST-LMAGIF 
SCNORMILMENO=?! LMSEND>LMAGIG 
jPa | LMORAW | 


LMAGIF=SCNORMILMENO=?*! LMSEND=LMAG IP | h 


sr LNSENO 
A JP LMORAW 
1 LN AGIP-HOIFISCCEN, LM START LMTS 


HOIFISCCEN, LMENO 


LOA LMOX se ST OFF END ON | 
WA C ያያያያዖዖን h 
JNA er? 

| 
icom a | 
#sr8 LNSST 
JPO LMORAW | 

LMAGIG-LOA LMOX se ST ON END OFF | | 

Los ( 177777) | 1 
JPA .. 3 | 
COM 8 bš » 

| 1 

Kä 

| 

t 


EE, 
NUL LMTS $ 
JPA LMAGEX IT Mat; 
tos 177777?) "i ; 
!ጄኔ. 
LOA LMOX i 
፤ [ሚመ 
IPA 0.2 EE 
e . 
com 8 E l 
' 
#ST8  LMSENO ! | 
` 
Y. ” 


com 8 
d 

*"sTB8  LMSST : 
JPO LMORAW 

LMAGP= HDIFILMDY,LMDX- LMDE NOM 
MOVEI( 400000). LMTT 
JP LMAG4 

LMAGS= LOA LMOY 
ADO LMOX 
sca (-1,) 


STA LMOENOM 


MOVEI([-«oocooo)=LMTT me 
LMAG#= HDIFILMSTARTes, SCCEN* 1 **XaY-vYax 
MUL LMOX ** /av+ aX 


Div LMOENOM 


sra LMTS .. 1 * 


HOIFILMSTART, SCCEN Å — 
* LMOY i d T1 
DIV  LMOENON aou — 

NORMAL I ZE=LMTS/ SCSZ =LMSKEY=LMAGE XIT 

"UL  LNTT 


STA LNSKE Y 


LMH Y SHT o 20 


LMAGS- SCNORNILNSTARTELNSS T-LMAGSA 


SCNORN | LNSTARTe 1212 ** LNSST>LMAG SA 


SCN ORM | LMEND=LN SEND *LMA G SD 
SCNORMILMEND+ 12 1 c? * LMSEND- LMAG 58 
jpo LMORAW ** BOTH ON 


LMAGSA- SCNORM ILMEND=LM SEND «LMAGSC 


SCN ORM I LMENDe 12 1 2? ? LMSEND- LMAG SC 
eet ND ON, START OFF 


JP È LMSLR 


NE ARCR |LMSTART=LMEND. LM STAR Te 1 LMEND* Z A 


»JP O L MKEY 

STA LMSST 

JPO LNORAW 
LMAGSB- IPO LMSLR 


LMAGSCA- 


NEARCR I LMEND=LMSTAR T,LMEND* ¿> MSTART+1= Å 


2 47 0 LNKEY 
STA LM SENO 
JPO LMORAM 


LMAGSC-HOIFILMSTAR T, SCCEN* LMXSR 


HOIFILMSTART*1, SCCE N* 1^ LMYSR 


HOIFILMEND, SCCEN-LMEXR 
HOIFILMENDe 1, SCCENe 1 *LNEYR 
BÈZ c.p LATT 

72 0 LMAGSCB 

LDA LNXSR 

sve LMYSR 

sca 1-1.) 

STA LMTS 

LDA LMEXR 

5ሀ8 LMEYR 


JPG LMAGSCC 


LMAGSCC- 
sca (-1.) 
MUL LMTS 
Nag f 0) 
JNA .. 3 


JPO LMAGEX IT 


JPO LMSLR 


vea CR LW ST ART- EREN O VER STARS SL NEMO I Å A 


sip 0 LMKEY 
STA LMSST 


JPG LMAGSC Å 


AAN $ 


LMH Y ENT e 21 


** LINE SLOPE SUBROUTINE 


LM SLR- "STE LNMSLRX 
OVALNORNILN STAR T-LM ENDO. LMST ART* I =LMEND+ 1 LM SL 


LM SLRX- IPO e 


##SUBROUTINE TO FIND AM EDGE POINT 
LMKEY- "STE LMKEYEX 

STA  LMKCR ** IN, A PO INT IN LMSKE Y 

**s yg LMSKEY ** SLOPE IN LMSL 

POSAB (-i,a,,-1,0) %%1/2 CORNER D IST 

! "4 UL LMSL 

220 rv LMSL **OFFSETS aY,, aX 

STA 8 

2e jou LNKE ሃያ 

1400 LMSK EY 

#0 jov LMKE Y? | 

** App 8 

#4 BA. LMKE ሃፐፉያ 

"LOA LMKCR 

19104 4 ** USE SIOE ENTRY 
LMKEYE X= 


sou 4 | 


LMKEY41^' JOV ana 
JPO LMKEYT 
a?! jov BADOY 
JPG LMKEYS 
LMKEY2>!JOV LMKEY S+! 
JPO LMKEYT+2 
LMKEYTS-""a00 LMSKEY **MUST USE SIOE 
a?! jov BADOV **ENTRY 
20400 8 
dor BADOV 
JPO LMKEYE X-2 
LMKEYT-""a400 LNSKEY ** MUST USE 
2140 5% BADOV** TOP OR BOTTOM | 
22,00 B "S ENTRY 
a'jov BADO Y i D 
E 


27104 LMKCR 
NA 


JPG LMKEYE X-1 ነ 
LMORAW- SKN PLOTIT | 
JPG LMDRAM 1 2 


LOA LNSST 


ርዐፀ LM SEND 


^JP 9 PLOTL INE 

JPO LMAGEX IT 
LMORAM 1^ 

LOA LM SEND 

*።5ሀ8 ርዛ55 17 


?2SC4 (-2,-2,) 


57 LMSL 


AND VAY 


LMH Y H T o ያያ 


20m UL A 


WT A 

sca (-»».,) 

»JPO SORT | 
STA LMTS 3 | 
22874 LMTS ** 1/4 LENGTH 

POSCA (-6,-6) 

ZiwuL ( s72600,,0) 


t25 TA LMCNT**N-1 SPOTS” 


LMORAM 7 A- 


LIPA er? ** ROUND 


— 
` 
° 
` 
» 
- 


TADO T 33 


82200 ( 4) 


LMORAW 1 B- 
22506 ( 1) 
STA LM INC ** INCREMENTS 
RSX cua NOI SP 
AUX cmo LMCNT 


INX ረዘ» ! 


Ton 


SXL cmo DISPLAYFILE SIZE 
FULLECMe=LMAGEX IT 


OPX cmo LMTS 


INX cua DISPLAY FILE -i it A 


IOP X cua LMORAWLOOP 


RSX cmo LMCNT 
"REX cma [cmo 

LOA LMSST 

ርዐፀ (22 ፆ7።,, =ያዖያ7ያ)› 
MOVE ILMNAME =CNN AME I 


toc CMNAME 1 


INS c 


294 


-——— መመ መሙ መመ መሙ mm መሙ 


LNH Y IHT 0 23 


LMDRAWLOOP- 


STE enge * 


22400 LMINC 
*13NX cua LNORANLOOP-? 

25 | 
MOVEILMTS-NDISP y 


LMAGEX IT 


SQUARE ROOT BY HPP= 


STE ae sest IN EXIT =ውሲ BEN 
oo (-o) 

o2. UZ =ጩ ^o^ „ 4 „%%% “NAB 

v 3 2 rr 


3 “ትኛ “ጋ STO s*«41-3* “EXPONENT 
2 TY IN 


SUB ( 152461 6 %% h ‚ f. 0--5 00t 


MUL #6 7-16%% PN 
ng 2061-16" "HAL VE EXPONENT ዴ፦ 


JPO .eorn.-1.. IF EXP ODO — | 


— NUL (ez tass 2020 SO+) e. > .z... 


400 ( 110012 70021414:) ate. 3202 4 
JPQ 030-2327 TO ITERATION 


nr ይ ቁሪ 


400 ( sorosisire»). ቁ#ቀ+ያያያያያ 


MKZ ርሃጽ 4.1 ##87 -a7# *HALVE N za yao 
##THE APPROX CAME FROM ROLLO SILVER 
**NOM WE DO NEUTON' S METHOD TWICE 


STA a0 60-30 ** APPROX (X) TO „ BITS 


/ 
SKU MKZ 4.5 ^ 
ro w! |. sca (-1,)9* 2X 2 XI 
BLA, ወቃ. ወ=9ያ 99 NN TQ: SO BITS 
LOA nos 7-42 
0 rv so 00-0322 NIX! | 


LMH Y SHT o 74 


SAB (-1.,)+#ROOT TO 36 BITS IN A 
SAB se .1-51 ++. PROPER EXPONENT —— 20 > Pay መ 


JPO ert 
com B* FALLS THRU ያያ N«o 
COM A 


JPG ot EXIT 


11 »» APPROX t X! ) 

22 2** EXPONENT 

**END OF SQUARE ROOT SUBROUTINE “«ለህዕ#ፀ HPP 
CACT- SHE ACTEX 

STA ACTX 

sre ACTY 

JPA ACTPI 

INA ACTNI 


LOA ACTY 


JPG ACTEX 


JPG ACTEX 


JPG ACTEX 
ACTNI= COM A 
Loc ( «00,) 
src ACTANG z 
JPO er? 
ACTPr ዐዎጃ 4c TANG 
EXA B ** MAG OF X IN 8 
JPA ACTP? 
JNA ACTN? 
LDA ACTANG 
JPO ACTEX T. 
ac TN?= COM A 
ACTP?- SUB B 
JPA ACTP3 .. y BIGGER 
JNA ACTNS ** Xx BIGGER 
LOA ( 100,) 


3 NET Y 


SKL ana ACER 


ADO ACTANG 
JPO ACTEX 


AC TPI= LOA ACTY 


IPO ney 


STA ac 
ACTNIZ LOA AC 
14.08 
sce (-* 
olv AC 
sjov 8 


ACTE@- STA AC 


MUL fa 
STA ac 
LOA AC 
MUL AC 
"UL AC 
$TA AC 
NUL 1-3 
ADO AC 
STA AC 
LOA AC 
MUL AC 
NUL ac 
MUL ( ° 
ADD AC 
App AC 


ACTEX= JPO e 


PY THAGORIAN> 


STE P 
sre er 
MUL A 
NAg ( ° 
sro PY 
EXA PY 
MUL A 
NAB ( o 
sto er 
STA 8 
LOA PY 
125u8 
ያያ 1PA 
sce A 
LDA PY 
PY THAGORIAN1-— 
ADO 8 
Jov PY 
ዐፆጽ a8 


pr THAGORIAN?- 


SKZ ,., 
— — 


TIT 


0277212326) **.3216 „ „%% 0571 1349 2» 


TSUN 
1 7 7 
TTT 
TTT 
rr 
1540 $343 3*4) ** -10P 1848 SIN 4549742» 
TSUM 
TSUM 
TTS 
TIT 
TTT 
..orsosr-.) an 0252123137407630: 
TSUM 


TANG 


YTHAGORIANEX 

TS 

) 

TT ** IST NORM 

rs .. ¿ST NUM 

) 

TU ** NO NORM 
** ¿NO NUM 

TU 

PYTT 


PYTH AGOR LANS se INO NUM LARGER 


THAGORIANA 


4 


— 


PY THAGORIANEX« 
JPO „ 
PY THAGORIANY- 
EXA PYTS 
com PYTS 
SCA PYTS | 
Loc PYTU 
src PYTT 


JPO PY THAGORIANI 


PY THAGORIAN4« 


EXA prrr ss RADIUS TO BIG 


JPO PYTHAGORIANEX 
EXA PYTT 


os f-o} 


JPG PY THAGOR IAN? 


Si INK- so,o,, 60,0 


12 $,, - 400 


»*PLOTTER PROGRAM FOR SCOPE DRAW ING 
sel INE ZSTARTIAS ,ENO (B? 
**C IRCLE=ZSTARTIA) , CENTER 8) , ANGLE«C) 


** USES PBI FOR CIRCLE MODE 


** PLOTSVC 9004-17 


218 


-二 = 二- ወወ ወ መመ ወመ መ> መመ ER መመ መ= 


LMH Y 3H T - +” 
— = 
PLCLEAN- Kei == E 
ISTE PLCLX main 
SKX pis PLTABLE -! E: 
DPX pis PLPLSSAVE | oza 
Dër ዖር5ህ 
DPX PLOTBLOCKS 
Opx PLOTSTORAGE 
DPX PLOTBLOCKS? 
MKZ PLPUBUSY 
MKZ PLPLBUSY 
PLCLX- JPO œ 
PLPUNCH- 
'srTE PLPUX 
RXF „ PLPURTNE 
PLPUX- JPO «* 
PLPLOT-"STE PLPLX 
RXF ya PLPLRTNE 
PLPLX= JPQ * 
PLENDO- "STE PLLX 
SZN eres 
JPO PLLX* 
LOA % „„ „ „„ „„ „„ „„ 0000) 
STA pis ፤ .. 108 
Loa ( s,7110,,) **FINAL TSO 
STA pis * 
MKZ PLCSW 
MEN PLIPSW 
JPO PLEENTRY ' 
sep LOTTER PUNCH ROUTINE 
ee SEQUENCE #3 
PLPURTNE- 
MEN. PLUS 
MKN PLPUBUSY 
MkZ PLLSW 
110S gy 3090000 ** NORMAL NO TH HOLE 


PLPUL= 'SKX piy Š 
ፃፐ5ዐ PLEADER ... 
at JNX #ይርሀ”-። 
SZN PLLSW 
JPG PLPUL? 
“rso PLEADER se END MARK 
Srso PLEADER e. TALLY 


!Sk X piy *5***BLKS OF LEADER 


DPX piy PLUMA 


1108 en 100004 ** NORMAL 7TH HOLE 


JPO PLPUL 


ዎርቴዎሀርያ።='”፣5ዐ PLEADER ... 
*ፐ5ዐ PLEADER es TALLY 
#'ADX priy PLUMA **PLU CONTAINS 1 


"sen (-0) 


- 


e e 1 


JPO PLPUL 


srx piy PLTABLE -i 
PLPULI-MKN PLPUBUSY 
PLPUL«-SX0 piy PLPLSSAVE* 


JPG PLUSTOP 


LOE pLu * ee 103 


PLXSAVE ** SAVE CNTR 


PLPULS-' 105 en 10024 ** NORMAL, 7TH HOLE 


9750 PLUMA ** 108 BITS 


os +. SPLAYEO, TH HOLE 


rso PLUMAS **የ5ዐ ቀ FILTER 


po ** NORMAL, NO 7TH HOLE 


so PLUMA ** TALL Y 


114UX piy PLOTBLOCK S? ** PLU CONTAINS -1 


ox PLOTBLOCKS? 
PLU 


EZAUX py PLOTBLOCK 5 
"pe x PLOTBLOCKS 
PLU 
135p 5X piy PLUMA **BLK CNTR 


„ JPX piy PLPULE 


14R SX PLXSAVE **RESTORE CNTR 
PLU 


PLPUL6-TOP X piy PLUMA se SAVE BLK CNTR 


PLUSTOP 


MKZ PLPUBUSY 


PLUENO-'SK X piy ?!?* se TAPE FEEDS 


** NORMAL NO 7TH HOLE 


` 
- 
Ki 
z 
x 
v 
r 
< 
` 
v 
- 


21705 gy 20000 


JPO 2 


PLOTBLOCKS?> 
D 
ssp LOTTER PLOT ROUT INE 


**SEQUENCE 74 


PLPLRTNE- 


MKN PLPSW 


PLPLI= MKN PLPLBUSY 


PLPL?*- SXD pip PLPLSSAVE? 
JPO PLPSTOP 
% pip PLXSAVE 
e tot pup ° „ 1780 
STE PLPWA 
!!RSX pLPIPLP * „ 108 
10px pip PLPIOS 
MKZ yoy PLPLI 
SKE 7... BEE 19:9 
NEW pag LOC PLE 
PLPLIS *' KOS se 20000 e. ya IT FOR PEN CHG 
PLPIOS='10S pa 9 #+MODIF LEO 
SKZ 5.9071 ** PB I? 
JPO PLPPBI 
TSO PLPWA 
SXL pip s10 00 
JPO PLREOF IL = 一 2 
PLPL«- "IRSK pip PLXSAVE 
DEX pip ? =- 


JPO PLPL2 


PLREDF IL- 


DEX pip 1122 
IDPK pip PLPIOS 
14% PLPIOS 
PLPSTOP- 
SKZ PLESW 
JPO PLPEND 
MKZ PLPLBUSY 
JPO PLPL! 
PLPEND=ANKZ PLPLBUSY 
»MK Z. PLPSW 
21108 „ 20000 se DISC 
JPO # 
PLPPBI- #TSO PLPWA 
RFO ga tti 
++ INTERVAL TIMER SEQUENCE, PBI MODE 
torx pip PLPIT? 
lap SX pip PLXSAVE se TABLE CNTR 
**NO OF BLKS 


s 
1IRSX PLPIPLP * 


110S ga 30000 +. STOP CNT R 
asi r 80 PLITK**1/20 TH READER SPOD 


1108 ga 30302 


seg PLPITS 
PLPIT- SEN TRBUSY 
RXF 57 TRACK 
3! JNX pip PLPIT 
13p SX pip PLITWA **BLKS LEFT | 


ei JPX pip PLPIT? 


128 SX pip PLXSAVE 


DEX pip ? 


SKX ya PLPL? 


SKZ 1.1 TPLA ' ++ PEN UP NXT? 


190 PLPLRF 2 
Mel ,., PEP ITI ** PEN UP 


MKC 341-24 PLP IT? **CHG DIR 


HRD beny PUP Ta **NO PBI 
PLPIT22'IOS ya * ** MOD 


"INTERVAL TIMER SE OVENCE FOR MAIN PROGRAM 


ፆር INTSTART 2- 
os så % ee STOP COUNTER 
+?7 80 PLITE**10.MS 


22105 sa 30300 +. CNT + DISMISS 


SEN TRBUSY 


RXF 57 TRACK 


PUPITI- #10PX pip PLITMA ee SAVE BLK CNTR 
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